Modules & VBA :: Multiuser Split DB - Code Causing Occasional 3049?

I have a multiuser split db with this code on a listbox:

Code:
Private Sub lstsearch_DblClick(Cancel As Integer)

' The following is the variable definition for the error handler
On Error GoTo lstsearch_DblClick_Error
Dim ErrorForm As String
Dim ErrorControl As String

[Code] ....

The error function sends me an e-mail listing the error, user, form and sub. Ocasionally some users get error 3049 when running this sub. It is generally one user out of about 10 or so and the db keeps working fine for everyone else. I have reviewed the back end several times and I cannot find any obvious corruption signs. I have compacted and repaired it several times with very small changes is size.