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

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

Opening a Recordset

 
Sub OpenRst()
   Dim rst As ADODB.Recordset

   Set rst = New ADODB.Recordset
   With rst
      .Source = "Select * from Employees"
      .ActiveConnection = CurrentProject.Connection
      .Open
      Debug.Print rst.Fields.count
      .Close
   End With
   Set rst = Nothing
End Sub

 

Related examples in the same category