Sub StaticRecordset1() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.Open "Select * from Employees", _ CursorType:=adOpenStatic Debug.Print rst.RecordCount rst.Close Set rst = Nothing End Sub