Opening a Recordset Directly : Recordset Open « Access « VBA / Excel / Access / Word

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

Opening a Recordset Directly

 
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

 

Related examples in the same category