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