Visual Basic - erroralejecutarconsulta, faltanparametrosesperava4

pues si etoy intentando ejecutar una consulta que esta generada en acces, es una consulta que adiciona registros a una tabla, desde acces funciona perfecto el problema es cuando intento ejecutarla con vb me dice que faltan parametros que se esperava 4.
este es el codigo que uso:

sql = "INSERT INTO Prog_CD_FTRx ( OBS, Frente, TipoRec, Importe, [Ene 05], [Feb 05], [Mar 05], [Abr 05] ) "
sql = sql & "SELECT Cuentas.OBS, OBS.Frente, CCP3.TipoRec, Sum([Para P3].BC) AS Importe, Sum([Ene05]*[BQ]*[Costo]) AS [Ene 05], Sum([Feb05]*[BQ]*[Costo]) AS [Feb 05], Sum([Mar05]*[BQ]*[Costo]) AS [Mar 05], Sum([Abr05]*[BQ]*[Costo]) AS [Abr 05] FROM ((((Prog INNER JOIN [Para P3] ON Prog.Act = [Para P3].ACT) INNER JOIN Recursos ON [Para P3].RES = Recursos.Res) INNER JOIN CCP3 ON [Para P3].CC = CCP3.CC) INNER JOIN Cuentas ON [Para P3].Cuenta = Cuentas.Cuenta) INNER JOIN OBS ON (OBS.OBS = Cuentas.OBS) AND ([Para P3].OBS = OBS.OBS)GROUP BY Cuentas.OBS, OBS.Frente, CCP3.TipoRec, CCP3.Orden ORDER BY Cuentas.OBS, CCP3.Orden"

Set Consulta = db.CreateQueryDef("Temporal", sql)

'hasta aqui vamos bien pues la consulta se crea correctamente y puede ser vista en vistadiseño de access, y si la ejecuto en access todo me va perfecto y agrega los registors a la tabla Prog_CD_FTRx, el problema viene cuando la quiro ejecutar con vb asi:

Consulta.Execute

me da mensaje de error, faltan parametros se esperava 4
me pasa lo mismo si intento hacerlo asi:
db.Execute "remporal"

ahora si las pongo de la forma
Consulta.Execute([options])
db.Execute("Temporal",[options])
donde option es un parametro pocional que no tengo idea para que sirve, me manda el error : se esperava =

espero me puedan lludar pronto.