Using Variables Globally

  • Thread starter Thread starter Penstar
  • Start date Start date
P

Penstar

Dim Cnxn As ADODB.ConnectionDim strCnxn As String
Dim strSQL As String
Dim intEventID As Integer
Dim str2 As String

' Open connection
'Set Cnxn = CurrentProject.AccessConnection

Set Cnxn = New ADODB.Connection
strCnxn = "DRIVER = {MySQL ODBC 3.51
Driver};Server=localhost;DSN=ttime;Database=ttime;User=ttime;Password=mkghgfr;Option=3;"
Cnxn.Open strCnxn
 
Back
Top