vb6 adding new records in access misses out some records

[MostBanyest]

i am not good in programming and i need help

i wrote a program in VB6 that uses MS access database, its supposed to save records into a temporary database, when you are happy with the records it copies them to a permanent database, then deletes all contents in the temporary database in order to enter new records, this process is repeated over and over again but, sometimes very fast, when i checked the permanent database i have noticed that i have less records than those entered, through temp database,

eg suppose i enter 3 records at a time into temporary database 10 times totaling 30 records, in the permanent database i get maybe only 16 0r 20 records, surprisingly the same program is working fine on a pentium 4 PC or on dual core laptop, but on Pentium 3, 500Mhz CPU 128MB ram 4GB Hdd this problem surfaces,

could it be the machine speed or something can be dane in the code?

Dim rs5 As New ADODB.Recordset
Dim rs6 As New ADODB.Recordset
 
With rs5
        If rs5.State = 1 Then Set rs5 = Nothing
 
rs5.Open "Select * from [TEMDB]", cnn2, adOpenDynamic, adLockPessimistic
 
   CnDBS.BeginTrans
 
        Do While Not .EOF
 
                If rs6.State = 1 Then Set rs6 = Nothing
 
            With rs6
                  rs6.Open "Select * from PERMANENTDB", CnDBS, adOpenDynamic, adLockPessimistic
 
If err.Number = 3021 Then MsgBox "Please Clear (F4) and restart your transaction": Exit Function
 
                        rs6.AddNew
 
                                 rs6.Fields(0) = ThisTill & receipt
                                 rs6.Fields(1) = ThisTill
                                 rs6.Fields(2) = Tilluser
                                 rs6.Fields(3) = rs5.Fields(10).Value
                                 rs6.Fields(4) = rs5.Fields(5).Value
                                 rs6.Fields(5) = rs5.Fields(6).Value
                                 rs6.Fields(6) = rs5.Fields(7).Value
'                   rs6.Update '' I USED TO HAVE UPDATE HERE STILL WITH SAME PROBLEM
 
            End With
            rs5.MoveNext
        Loop
 
 
    rs5.Close
 Set rs5 = Nothing
 
End With
 
rs6.Update
CnDBS.CommitTrans
 
 

at this stage the temporary database is used to print confirmation records that they have been entered then all records are deleted from the temporary database.

[Dököll]

Intense! Good job getting it to do that much thus far.... can you set up a timer to control how frequently data get loaded to permanent db...

Dököll