by Jim Rhoades (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 12th September 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Using ADO to open an Access MDB DSN-less.
Dim RS1 as New ADODB.Recordset
Dim sSQL as String
CN1.CursorLocation = adUseClient
CN1.Provider = "Microsoft.Jet.OLEDB.3.51"
CN1.Open App.Path & "\MyDatabase.MDB", "", ""
sSql = "Select * From Address Order By [LName]"
RS1.Open sSql, CN1, adOpenDynamic, adLockOptimistic, adCmdText