Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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