Here is the entire code, I find it strange that this error only occurs with 64bit Windows.
Private Function FindAccessFileLocation() As String
On Error Resume Next
'this is to handle server utilization, as well as client machines
Dim varReturnValue As Variant
varReturnValue =...