Ciao Amici,
sapete dirmi perchè mi da Run-time error 424 Object required???
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ssql As String
'Istanza di connesisone
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 100
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source= D:\pippo.mdb;User ID=Admin;Password=;Jet OLEDBatabase Locking Mode=1;"
conn.ConnectionTimeout = 60
conn.Mode = adModeReadWrite
conn.CursorLocation = adUseServer
conn.Open
ssql = "INSERT INTO RFID(TAG1, TAG2, TAG3, TAG4, TAG5) VALUES('" & Text2.Text & "', 1, 0, 0, 0,)"
conn.Execute (ssql)
End Sub
![]()
![]()