Erreur 3061 dans programme VBA

Bonjour à tous !
Dans mon programme VBA je passe un paramètre à une requête SQL comme suit :

Option Compare Database
Option Explicit
Public xl As Excel.Application
Public wbk As Excel.Workbook, wst As Excel.Worksheet
Dim db As DAO.Database, rst As DAO.Recordset
Sub ImpressionFacture()

Set db = CurrentDb() ' Ouvre la requête facture

'Saisie du numéro de facture pour impression

Dim Réponse As Integer
Dim sql As String

Réponse = Val(InputBox("Saisissez le N° de facture :", "Saisie N° Facture"))

sql = "SELECT * FROM Factures WHERE Factures.[N° Facture]= Réponse;"

Set rst = CurrentDb.OpenRecordset(sql)

Le programme plante à l'instruction ci-dessus avec le message "Erreur 3061 - Trop peu de paramètres 1 attendu"

Que peut-il bien se passer ?

Merci d'avance pour vos lumières ...

fbou

Configuration: Windows XP
Firefox 3.5.3