Run-time error 3021 "Either BOF or EOF is true, or the current record has been deleted.

i am trying to move records from one database table to another database table ( But same structure in both table )

code is attached

''''''''''Connection For Mover.MDB file for transfering data from Trant.MDb to Mover.MDB
    If RecvKKL_Cnn.State = 1 Then RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Mover.mdb;Jet OLEDB:Database Password=xxxxxxxx"


    If RecvLCL.State = 1 Then RecvLCL.Close
        RecvLCL.Open "select * from B_Detail WHERE LsNo = " & Text1(18).text & " and Check = 1", con, adOpenKeyset, adLockOptimistic
        
    If RecvKKL.State = 1 Then RecvKKL.Close
        RecvKKL.Open "Select * from B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        If RecvLCL.RecordCount > 0 Then
        
            While Not RecvLCL.EOF
                
                RecvKKL!bno = RecvLCL!bno
                RecvKKL!Mode = RecvLCL!Mode
                RecvKKL!bdate = RecvLCL!bdate
                
                RecvLCL.MoveNext
            Wend
        End If

Select allOpen in new window