Move cursor in a Recordset with MoveNext
Sub PropNulls() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "Employees", CurrentProject.Connection Do Until rst.EOF Debug.Print rst!EmployeeID, rst!Region rst.MoveNext Loop End Sub