Access - fallo en SQL

Hola.Estoy intentando hacer lo siguiente.Tengo un InputBox donde escribo un nombre,y luego quiero obtener la clave primaria de ese nombre mediante SQL pero no lo consigo
El código es est:

'calculamos el código que corresponde al cliente
Dim codigo As String
Dim reg As Recordset
Dim sql As String




'vamos a conseguir el código del cliente
sql = "SELECT CL_CODIGO as codigo " & _
"FROM Cliente " & _
"WHERE CL_NOMBRE= ;" & respuesta

Set reg = CurrentDb.OpenRecordset(sql)
codigo = reg("cod")
reg.Close

¿Alguien sabe lasolución?Un saludo

Asi me funciona a mi

Dim GesperDB As Database
Dim MIRS As Recordset ' Para contener la bd filtrada y clasificada
Dim strSQL As String

Set GesperDB = DBEngine.Workspaces(0).Databases(0)
Set GesperDB = CurrentDb

strSQL = "SELECT [codigo] FROM [GAD GPFIC11] WHERE [codigo]= " & codigopasado
Set MIRS = GesperDB.OpenRecordset(strSQL)