You need to modify the pass through query dynamically.
Use something like this function in your code:
Public Sub ChangePTStatement(p_QueryName As String, p_sql As String)
'for changing pass-through's in this db
Dim qdef As dao.QueryDef
Set qdef = CurrentDb.QueryDefs(p_QueryName)...