'Reference "Microsoft DAO 3.6 Object Library"
'Note Record Count is 4938

Public RecSet As Recordset
Public DB As Database
Public WS As Workspace

Private Sub Form_Load()
  Set WS = CreateWorkspace("", "", "", dbUseODBC)
  Set DB = WS.OpenDatabase("Smart Charts", False, True, "ODBC;dsn=Smart
Charts;TablePassword1=greenmoney;")
End Sub


Private Sub Command1_Click()

  Dim sDate As String
  On Error GoTo ErrHndl
  
  Set RecSet = DB.OpenRecordset("SELECT * FROM PriceData WHERE sName = 'ABSA'",
dbOpenDynaset, dbExecDirect, dbOptimisticValue)
  
  'THIS WORKS FINE
  RecSet.MoveFirst
  Do Until RecSet.EOF
     sDate = RecSet("sDate")
     RecSet.MoveNext
  Loop
  
  'THIS GIVES ERRORS
  RecSet.MoveLast
  Do Until RecSet.BOF
     sDate = RecSet("sDate")
     RecSet.MovePrevious
  Loop
  
  
Exit Sub
ErrHndl:
'ERROR ON RECORD 37
MsgBox "Error " & RecSet.AbsolutePosition

End Sub