Sub OpenRst_Directly()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
With rst
.Source = "Select * From Employees"
.ActiveConnection = CurrentProject.Connection
.Open
End With
MsgBox rst.Fields(1)
rst.Close
Set rst = Nothing
End Sub