ERROR CON CONSULTA CONEXION ACCES

[federtuc]

BUENOS DIAS, TRATO DE HACER UNA CONSULTA PARA EXTRAER LOS DATOS DE ACCES CON UNAS CONDICIONES Y ME APARECE ERROR

Dim Sql
    
    
    Sql = "SELECT Id, NOMBRE, PRECIO, IMAGEN FROM PRODUCTOS WHERE EMPLEADO =" & Label1.Caption & " AND SUSPENDIDO = 0 ORDER BY NOMBRE"
   
   
    Call Conecta 'Crea la conexion

   Set Rs = New ADODB.Recordset
    
    
    
    
    
    Rs.Open Sql, miConexion, adOpenKeyset, adLockOptimistic   -------Aqui es donde me sale el error No coinciden los tipos de datos en la expresion de criterios

 

    

[Antoni]

Si la columna EMPLEADO está definida como texto en la BD, el dato debe ir encerrado entre comillas simples:

WHERE EMPLEADO ="' & Label1.Caption & "' AND SUSPENDIDO = 0 ORDER BY NOMBRE"

lo mismo para la columna SUSPENDIDO.

[federtuc]

Era exactamente eso Antoni, excelente felicitaciones y Gracias desde Argentina!