Hi I'm using the following code to step thru a recordset.  It works fine but
not in the order of the recordset.

There are 33 records and it goes from record 10 - 33 then 1 - 9.  Can anyone
assist?  It's driving me mad.

Private Sub Btn_Play_Demo_Click()
Dim MyTable As DAO.Recordset
Dim MySet As DAO.Recordset
Dim DB As DAO.Database
Dim MyDB As DAO.Database
Dim iResponse As Integer
Dim l_sFilename As String

Twip = 15

   Set DB = CurrentDb()
'    DoCmd.SetWarnings False
   Set MyDB = CurrentDb
   Set MySet = MyDB.OpenRecordset("Tracked")
   MySet.MoveFirst
   Do Until MySet.EOF
       The_Call_Sign = MySet![Call_Sign]
       The_Date = MySet![The_Date].Value
       The_Time = MySet![The_Time].Value
       Time_Started = Forms.Frm_Form1.Time_Ended
       If IsNull(Time_Started) Then
           Time_Started = 9
       End If
       The_X_Coordinates = MySet![X_Coordinates].Value
       The_Y_Coordinates = MySet![Y_Coordinates].Value
       
       Car1.Left = The_X_Coordinates
       Car1.Top = The_Y_Coordinates
       MsgBox MySet!Call_Sign
       Forms.Frm_Form1.Lat_Deg = MySet!Lat_Degrees
       Forms.Frm_Form1.Lat_Min = MySet!Lat_Minutes
       Forms.Frm_Form1.Lat_Sec = MySet!Lat_Seconds
   
       Forms.Frm_Form1.Lon_Deg = MySet!Lon_Degrees
       Forms.Frm_Form1.Lon_Min = MySet!Lon_Minutes
       Forms.Frm_Form1.Lon_Sec = MySet!Lon_Seconds
   
       Forms.Frm_Form1.Time_Started = Time_Started
       Forms.Frm_Form1.Time_Ended = MySet![The_Time].Value
       Forms.Frm_Form1.Time_Taken = Forms.Frm_Form1.Time_Ended -
Forms.Frm_Form1.Time_Started
   
   Call apWait(2.5)
'        Car1.Left = The_X_Coordinates * Twip - ((Twip * 100) * 0.25)
'       Car1.Top = (The_Y_Coordinates * Twip) - (Twip * 100)
       
       MySet.MoveNext
   Loop
   
   SysCmd acSysCmdSetStatus, " "
   MySet.Close
       
 
 
   DoCmd.SetWarnings True
   MsgBox ("Finished...")
   
End Sub