A Recordset That Does Not Support the RecordCount Property
Sub CountRecordsBad()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.Open "Select * from Employees"
Debug.Print rst.RecordCount 'Prints -1
rst.Close
Set rst = Nothing
End Sub