Sub DetermineLimits() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenStatic rst.Open "Select * from Employees" Do Until rst.EOF Debug.Print rst("EmployeeID") rst.MoveNext Loop rst.Close End Sub