VBA et requête sql

Bonjour,
Actuellement en stage dans le cadre de ma formation, je me trouve confronter à un problème : une erreur 3061, Trop peu de paramètres, 2 attendu.

Voici le code :

Private Sub Commande10_Click()
Dim lieu As String
Dim nom As String
Dim str As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Set db = DBEngine.OpenDatabase("J:\stage\Base de données.mdb")
ville = InputBox("Entrez le nom de la ville où est située l'entreprise")
nom = InputBox("Entrez le nom de l'entreprise")
str = "select [Raison sociale] from [Informations générales sur l'entreprise] where [Informations générales sur l'entreprise].[Raison Sociale]=nom and [Informations générales sur l'entreprise].ville=lieu"
Set rst = db.OpenRecordset(str, dbOpenForwardOnly, dbReadOnly)
rst.Close
End Sub

Si quelqu'un peut m'aider et me dire comment régler le problème, ça serait sympa
Merci d'avance