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'.

[David]

Como se supone que Nombre es un capo de tipo texto, al compararlo debes poner comillas simples ' antes y después de la expresión, por lo que debería ser:

Código vb:

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

[mexican2]

Gracias David el Grande

Me imaginaba que era eso del apostrofe, pero no sabia donde ponerlo y como

A proposito la funcion Trim que uso en este codigo, esta bien empleada aqui?

Gracias

[David]

Depende de qué es lo que quieres hacer exactamente, Trim lo que hace es borrar los espacios iniciales y finales en una cadena, y sí, puede ser útil en este caso .

[mexican2]

Gracias

Entendido