boa tarde, eu tem banco de dados um campo chamado bd_Status com nomes de "Orçamento,Aprovado,Cancelado,Laboratório e Concluito" eu queria fazer uma consulta so de "Orçamento" eu peguei umas dicas aqui deu certo tenho este exp.

    Data1.DatabaseName = App.Path & "atletismo.mdb"
    Data1.RecordSource = "SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento'" & criterio & "ORDER BY bd_Nome"
 até aqui deu certinho, so que tenho que fazer uma consulta de nomes é estou fazendo assim...

Private Sub Text1_Change()
    Dim SQL As String
    Dim criterio As String
    criterio = Chr$(39) & Text1.Text & "*" & Chr(39)
    SQL = "SELECT * FROM Cadastro WHERE bd_nome LIKE " & criterio & "ORDER BY bd_nome"
    Data1.RecordSource = SQL
    Data1.Refresh

End Sub

mais quando eu faço nova consulta ele carre todos os "Orçamento,Aprovado,Cancelado,Laboratório e Concluito num DBList1.
a consulata e por nome

Private Sub Form_Load()
   
    Call Ajusta_Form(Me)

    'Set BancoDeDados = OpenDatabase(App.Path & "Atletismo.MDB")
    'Set bd_Cadastro = BancoDeDados.OpenRecordset("Cadastro", dbOpenTable)
    'bd_Cadastro.Index = "IndNome"
 
    Data1.DatabaseName = App.Path & "atletismo.mdb"
    Data1.RecordSource = "SELECT * FROM Cadastro ORDER BY bd_Nome"
    'Data1.RecordSource = "SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento'" & criterio & "ORDER BY bd_Nome"

    Data1.Refresh
    Set rsData = Data1.Recordset
    rsData.MoveMin
   
    DBList1.ListField = "bd_Nome"
   
End Sub

Private Sub Text1_Change()
    Dim SQL As String
    Dim criterio As String
    criterio = Chr$(39) & Text1.Text & "*" & Chr(39)
    'SQL = "SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento'" & criterio & "ORDER BY bd_Nome"
    SQL = "SELECT * FROM Cadastro WHERE bd_nome LIKE " & criterio & "ORDER BY bd_nome"
    Data1.RecordSource = SQL
    Data1.Refresh

End Sub

assim ele deu certo, não tem como eu juntar esta duas linha pra uma so

na 1º linha ele so traz do meu bd (Cadastro, bd_Status='Orçamento'") so que ele não faz consulta por nome

na 2º ele so faz consulta + ele não sepera o meu bd (Cadastro, Status='Orçamento'")

 

1º    SQL = "SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento'" & criterio & "order by bd_Nome"
 2º   'SQL = "SELECT * FROM Cadastro WHERE bd_nome LIKE " & criterio & "order by bd_nome"

SELECT * FROM  Cadastro WHERE bd_Status= 'Orçamento' And bd_nome LIKE '" & criterio & "' ORDER BY bd_Nome"

obigado Martini so faltava isto pra eu termina o meu projeto.