Too few parameters on db.execute

[Ruegen]

Can't see why this won't execute - I get a too few parameters 1 error

Dim strSQL As String
strSQL = "UPDATE tblTourOrganiser RIGHT JOIN (tblAreas INNER JOIN tblSchools ON tblAreas.AreasID = tblSchools.AreaID) ON tblTourOrganiser.TourOrganiserID = tblAreas.TourOrganiserID SET tblSchools.CallBackDate = #" & Format(ChangeToDate, "mm/dd/yyyy") & "#" & vbCrLf & _
"WHERE (((tblSchools.CallBackDate)<=#" & Format(YesterdayDate, "mm/dd/yyyy") & "# And (tblSchools.CallBackDate) Is Not Null) AND ((tblTourOrganiser.TourOrganiserID)=[TempVars]![tmpTO_ID]));"


'!!!run the update!!!
CurrentDb.execute strSQL, dbFailOnError

[Ruegen]

ah sorry guys working with querydef objects didn't realise...