Error en sentencia SELECT

[mexican2]

Hola y Saludos

Soy nuevo por aqui

Si me pueden ayudar con este ERROR cuando hago click en un combo

NOTA: El Combo1.text lo relleno de Nombres y Apellidos cuando inicia el Form_Load

Private Sub Combo1_Click()

Dim i As Integer

SQL = "SELECT * FROM Personas WHERE Nombre = " & Trim(Combo1.Text) & ""

Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
CostoCB(0).Text = rs!Precio1
CostoCB(5).Text = rs!FechaDeAlta
End Sub


Y ME MARCA EL SIGUIENTE ERROR:

Error'-2147217900 (8004e14)' en tiempo de ejecucion:

Error de sintaxis (falta operador) en la expresion de consulta 'Nombre
= CF Carta'.