Ok Rich,
I got the Method or Data member not found issue figured out. I had to change Dim rs As Recordset to Dim rs As DAO.Recordset.
But now I have a new issue. I think I am messed up with the Source. here is what i have in the module:
Function prevrecvalc(Trans As String, KeyValue, _
Zip As...