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