erro onde? que erro ?

RS.Open "select * from produtos mat_pro where (mat_est)= " & Combo1.Text & " order by mat_pro", db, adOpenDynamic, adLockOptimistic 'db, 1, 3
 "erro de sintaxe(operador faltando) no expressao de consulta '(mat_est)=

tenta sem colcoar tanto esse mat_pro

 

deu +/- certo mais pra fazer uma consulta, mais não como estoque

no meu campo mat_est tem 5 obj.

e no campo mat_min tem 5 obj, então ele deveria trazar a mensangem

        MsgBox "Hoje é Dia de Vencimento de Aluguel do(s) Codigos(s):" & Contas, vbInformation, "Aviso de Vencimento de Aluguel!"

deu certo, com a dica do nosso amigo KoRn o meu codigo figou assim

    Dim Min As String
    Dim Max As String
    Set RS = New ADODB.Recordset
    If RS.State = 1 Then RS.Close
   
    RS.Open "select * from produtos where mat_pro= '" & Combo1.Text & "'", db, adOpenDynamic, adLockOptimistic
        Do While Not RS.EOF
            Min = Min & vbCrLf & RS("mat_min")
            Max = Max & vbCrLf & RS("mat_est")
            RS.MoveNext
        Loop
        If Min > Max = False Then
            MsgBox "Hoje é Dia de Vencimento de Aluguel do(s) Codigos(s):" & Max & vbInformation, "Aviso de Vencimento de Aluguel!"
        End If
        RS.Close
        Set RS = Nothing

 

pra que serve este comando "Set RS = Nothing"
e este                               "Set RS = New ADODB.Recordset"

vc ta abrindo um recordset e depois vc ta limpando da memoria

 

feche o topico pra nois, valew