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
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