title: DAO.Recordset, unable to MoveNext in table object
body: <p>Goal:  I am writing a loop to go through a table, row by row, evaluate if fields match eachother, then move to the next record (row) and re-evaluate.  I eventually want to build a ever-growing string out of it, but for now I cannot get the Code to go to the next loop.  The value(s) show that the code only evaluates the first record, and repeats itself.</p>
  
  <p>I've tried moving the line 'ExDif.MoveNext' into/out of the loop, before/after the End If, no change.</p>
  
  <pre><code>Option Compare Database
  Option Explicit
  
  Sub Export_Library_Compare_Process()
  
  'Identify the variables
  Dim Tang As DAO.Database
  Dim ExDif As DAO.Recordset
  Dim Field01a As DAO.Field
  Dim Field01b As DAO.Field
  Dim ID As DAO.Field
  
  'Set the database and recordsets to database and tables
  Set Tang = CurrentDb
  Set ExDif = Tang.OpenRecordset("Staging_LOG_ExportDifferences")
  Set Field01a = ExDif.Fields("a_Client Name")
  Set Field01b = ExDif.Fields("b_Client Name")
  Set ID = ExDif.Fields("ID")
  
  'Start a series to look to see what matches
  Do While Not ExDif.EOF
  
      'Move to first row in table
      ExDif.MoveFirst
  
      'Field 01 - Client Name
      If Field01a.Value &lt;&gt; Field01a.Value Then
          MsgBox "Client Name does not match"
      Else: MsgBox "Client Name matches"
  
      'Move to next record (row) in table
      ExDif.MoveNext
  
      'End the Else - If
      End If
  
  'End Loop
  Loop
  </code></pre>