codice:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Public Sub database()
Set rs = New ADODB.Recordset
Const id As Long = "1"
cn.CursorLocation = adUseClient
cn.ConnectionTimeout = 30
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/database.mdb"
cn.Open
End Sub
Questo è l'intero codice del mio modulo