Provlima me connection se access apo vb

[strbrdchild]

Hizzzzz se olous....Exw mia efarmogi i opoia sindeete me access alla den mporw na petyxv tin sindesh me tin vash opws epishs kai ta queries mou crasharoun.Sa paratheto ton parakatw kwdika (module.bas) pou exei kapoia global variables kai to connection string. Opoios gnwrizei ti kanw lathos parakalo as kanei reply. Thnx

----------------------------------------------------------------------------

Public SQL As String

Public cn As ADODB.Connection

Public rs As ADODB.Recordset

Public ConStr As String

 

Public Sub OpenConnection()

ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Dbq=C:\Documents and Settings\BP\My Documents\statistics.mdb;" & _

"Uid=admin;" & _

"Pwd="

Set cn = New ADODB.Connection

cn.Open ConStr

End Sub

 

Private Sub Main()

OpenConnection

End Sub

[Theoxaris]

Dokimase na to grapseis kapws etsi :

 

Public SQL As String

Public cn As ADODB.Connection

Public rs As ADODB.Recordset

Public ConStr As String

 

Public Sub OpenConnection()

 

Set cn = New ADODB.Connection

With cn

.CursorLocation = adUseClient

.Provider = "Microsoft.Jet.OLEDB.4.0"

.Open "C:\Documents and Settings\BP\My Documents\statistics.mdb"

End With

End Sub

 

Private Sub Main()

OpenConnection

End Sub

 

Elpizw na boithisa !!