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