SQL Parametros sin valores

La semana pasada Hector me respondio una consulta con un codigo casi calcado de Este que muestro aqui
solo cambia el metodo en el WHERE, despues de cuatro horas de no poder con El, pido ayuda
el mensaje de error es en la linea del recodset, con el siguiente mensaje:
""""No se han especificado valores para algunos de los parametros requeridos.""""

Sub CargarAutoForm1()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSQL As String
Dim Ruta As String
Dim Lista As String
Application.EnableEvents = False
Ruta = ThisWorkbook.Path
Lista = UserForm1.ListBox1.Text
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
strSQL = "SELECT * FROM Compras WHERE Nombre= " & Lista & ""
Rst.Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic '''LINEA DEL ERROR
With UserForm1
.TextBox1 = Rst!Nombre
.TextBox2 = Rst!Direccion
.TextBox3 = Rst![Codigo Postal]
'''''' ETC >>
End With
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
Application.EnableEvents = True
End Sub

Gracias...! Veo lo sutil de la diferencia... lo corregi... pero sigue con el mismo error...
en la linea que le sigue esta en el post anterior, Saludos y Gracias.

a: -> strSQL = "SELECT * FROM Compras WHERE Nombre = " & Lista & ";"
strSQL = "SELECT * FROM Compras WHERE Nombre = " & Lista & ";"
Rst.Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic

Me olvide de las comillas, las puse en otros campos, pero alli no...!
ahora funciona.