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

 

    

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.

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