' 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