title: ADODB.RecordSet.MoveNext going up by 2
body: <p>I am importing a CSV into ACCESS using ADODB recordset. I am trying to iterate through the recordset to get data I need, but when I use the .MoveNext method it goes up 2 instead of one. By that I mean AbsolutePosition counts by 2s (1,3,5..) and I hit the EOF when the rowcounter I am using hits exactly half of the total number of records</p>
  
  <pre><code>Public Function ConnectToCSV(filePath As String, fileName As String)
  Dim connString As String
  Dim connection As ADODB.connection
  Dim RS As New ADODB.recordSet
  Dim currentRow As Long
  dim readArray() as Variant
  
  Set connection = New ADODB.connection
  connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &amp; filePath &amp; fileName &amp; _
    ";Extended Properties='text;HDR=YES;FMT=Delimited';"
  
  connection.Open connString
  
  RS.Open "SELECT * FROM " &amp; fileName, connection, adOpenStatic, adLockReadOnly, adCmdText
  
  currentRow = 0
  RS.MoveLast
  RS.MoveFirst
  
  While Not RS.EOF
      readArray = RS.GetRows(1)
      RS.MoveNext
      currentRow = currentRow + 1
  Wend
  End Function
  </code></pre>