check this it works. Query is the Name of the MS Access Query Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset
Private Sub Form_Load() rs.CursorLocation = adUseClient con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BACKUP.mdb;Persist Security Info=False" con.Open rs.Open "Query", con, adOpenKeyset, adLockOptimistic End Sub
IAMS
|