It's been a lot of time since I used VB5 with CR, but just would like to help.

Try if your code works with a local copy of the Access database. If it works, there may be some error with the data accessing code in your app.

Instead of the crude method you have followed to trap any errors, use the 'On Error' statement.

Code:
Private Sub <Procedure Name>()

On Error Goto MyError

'Your code goes here
'
'
'


MyError:  'Remember, this word should appear to the extreme left.
If Err.Number <> 0 Then
   MsgBox "An error has occurred."
   Exit Sub
Else
   Resume Next
Endif