Runtime error 2001

[Bellyjeans]

Hi guys,

I have a split database with multiple users. All of the users' front
ends are working fine, except for one user who keeps on getting a
"Runtime error '2001'" message popping up. Here's the code that it
keeps on trying to debug:

Public Function CountReferrals()
CountReferrals = DCount("[ReferralID]", "REFERRAL", "[PatientID] =
Forms!frmMainDemographicsHM2!PatientID")
End Function

Is there a problem with my code? I haven't been able to fix it and
all of the other users are able to use their databases just fine with
the same coding.

Thanks.