datatype mismatch in criteria expression usually means that you either need to add or remove the single quotes around the value.
In your case it is probably
Criteria = "[idsBuyerID]=" & Me.ContractNumber
Instead of: Criteria = "[idsBuyerID] = '" & Me.ContractNumber & "'"
