Penggunaan ADO untuk membuka basis data Access mdb tanpa DSN

       Dim CN1 as New ADODB.Connection

       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