title: DAO.Recordset returns only one record when executing in codese
body: <p>This statement always returns only one record everytime when its executed</p>
  
  <pre><code>Dim rs As DAO.Recordset
  Set rs = CurrentDb.OpenRecordset("Select book_name from book")
  Dim i As Integer
  For i = 0 To rs.RecordCount - 1
  lbBooks.AddItem rs!book_name
  rs.MoveNext
  Next
  </code></pre>
  
  <p>what could ebe the cause</p>