Set db = CurrentDb
Set qdfpt = db.QueryDefs("yourPassThroughQuery")
qdfpt.Connect = "ODBC;DRIVER=SQL Server;SERVER=SQLSERVER;;DATABASE=YourSqlDatabase;UseTrustedConnection=True"
qdfpt.SQL = "exec dbo.YourStoredProcedure @YourParameter = " & Me.YourParameterOnTheForm & ""
db.Close