Select

[Guest - Alepe -]

Caros,

Ao entrar com 3 opcoes ele so funciona se todos os campos tiverem em branco,

A entrada do campos são

1a. opção - Numero da Comanda

2a. opção - Nome da Loja

3a. opção - Data

Dim codigo As String
Dim total As Double
Dim soma As Double
On Error Resume Next
rs.Close
On erro GoTo trataerro
'rs.Open "SELECT * FROM cabecacomand where codigocomanda LIKE '%" & txtncomanda.Text & "%' or nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda like '%" & txtdata.Text & "%'", cn, adOpenDynamic, adLockOptimistic
If txtncomanda.Text <> "" Then
   rs.Open "SELECT * FROM cabecacomand WHERE codigocomanda = txtncomanda.Text ", cn, adOpenDynamic, adLockOptimistic
ElseIf txtloja.Text <> "" Then
   rs.Open "SELECT * FROM cabecacomand WHERE nomedaloja = txtloja.Text ", cn, adOpenDynamic, adLockOptimistic
ElseIf txtdata <> "" Then
rs.Open "SELECT * FROM cabecacomand WHERE datadacomanda= txtdata.Text ", cn, adOpenDynamic, adLockOptimistic
Else
rs.Open "SELECT * FROM cabecacomand WHERE codigocomanda LIKE '%" & txtncomanda.Text & "%' OR nomedaloja LIKE '%" & txtloja.Text & "%' OR datadacomanda like '%" & txtdata.Text & "%'  ", cn, adOpenDynamic, adLockOptimistic
End If
lstmostra.ListItems.Clear
codigo = rs!codigocomanda
nomeloja = rs!nomedaloja
datacom = rs!datadacomanda

Do While Not rs.EOF
   lstmostra.View = lvwReport
   Set Lista = lstmostra.ListItems.Add(, , rs!codigocomanda)
   Lista.SubItems(1) = rs!nomedaloja
   Lista.SubItems(2) = rs!datadacomanda
   rs.MoveNext

Loop
Exit Sub
trataerro:
   MsgBox Err.Description, vbCritical, "Erro no sistema"
End Sub

[Guest - Alepe -]

A solução é a clausula like...

rs.Open "SELECT * FROM cabecacomand WHERE codigocomanda like '%" & txtncomanda.Text & "%'", cn, adOpenDynamic, adLockOptimistic