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