Creating a Recordset Using a Connection String : Recordset Open « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Open

Creating a Recordset Using a Connection String

 
Sub CreateRecordset1()
    'Declare and instantiate the recordset
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    'Open the recordset
    rst.Open "Select * From Employees", CurrentProject.Connection

    'Print its contents
    Debug.Print rst.GetString

    'Close and destroy the recordset
    rst.Close
    Set rst = Nothing
End Sub

 

Related examples in the same category