codice:
Public Sub newDoEvents() 
        If GetInputState() <> 0 then DoEvents 
End Sub 

        uCancelMode = False 

                 Do until rs.Eof 

                         Rs.AddNew  

                                  (..your source here) 

                           Rs.Update 

                           Rs.MoveNext 

                              If GetInputState() <> 0 then 

                                 DoEvents 

                                  If uCancelMode Then Exit Do 

                              End If 

                     

                         Loop 

                         

                         Msgbox “Finished.”