tipo quando eu seleciono a opção nome ele consulta certo ex: Marcos Gonçalves e quando eu coloco placa ele não consegue o os dados no bd e: MGF 0102 .... eu inverti a posição do nome para placa ... funciona normal quando é nome agora quando é placa não vai....

 

Private Sub cmdPesquisar_Click()
If txtTexto.Text = "" Then
    MsgBox "Digite alguma coisa"
    txtTexto.SetFocus
Else
lstResultado.ListItems.Clear
 
  If txtTexto = "" Then
    DatClientes.Recordset.MoveMin
    Do While Not DatClientes.Recordset.EOF
      Set temp = lstResultado.ListItems.Add(, "", DatClientes.Recordset!codigo, 0, 0)
      temp.SubItems(1) = DatClientes.Recordset!nome
      temp.SubItems(2) = DatClientes.Recordset!placa
      temp.SubItems(3) = DatClientes.Recordset!uf
      DatClientes.Recordset.MoveNext
    Loop
    Exit Sub
  End If
  If optCodigo.Value = True Then
    crit = "codigo=" & txtTexto
  ElseIf optNome.Value = True Then
    crit = "nome like '" & txtTexto & " *'"
  ElseIf optPlaca.Value = True Then
    crit = "placa like '" & txtTexto & " *'"
  ElseIf optEstado.Value = True Then
    crit = "uf='" & txtTexto & "'"
  End If
  frmCadastro.DatClientes.Recordset.FindMin crit
  Do While Not frmCadastro.DatClientes.Recordset.NoMatch
      Set temp = lstResultado.ListItems.Add(, "", frmCadastro.DatClientes.Recordset!codigo, 0, 0)
      temp.SubItems(1) = frmCadastro.DatClientes.Recordset!nome
      temp.SubItems(2) = frmCadastro.DatClientes.Recordset!placa
      temp.SubItems(3) = frmCadastro.DatClientes.Recordset!uf
    frmCadastro.DatClientes.Recordset.FindNext crit
  Loop
End If
End Sub

Olha cara eu não consegui ver o erro, mas ve vc me mandar o código mais o bd vai ficar mais fácil de eu tenta resolver seu problema, quando vc verificar se o campo estiver vazio utilize assim: trim(txttexto.text) = "", pois assim eliminar os espaços em branco.

 

Espero ter ajudado

T+