' Minich's Ch 5 Example #1


Option Explicit


Dim conAVB As Connection
Dim rsPatient As Recordset


Private Sub cmdConnect_Click()
    Set conAVB = New ADODB.Connection
    Set rsPatient = New ADODB.Recordset


    conAVB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
        "Persist Security Info=False;Data Source=" & App.Path & _
        "\AVB.mdb;Mode = readwrite"
        
        conAVB.Open
        
        rsPatient.Open "SELECT * FROM Patient", conAVB
        
        MsgBox rsPatient![Last Name]
        
        ' or Debug.Print rsPatient![Last Name]
End Sub