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





Reply With Quote