amigos, boa noite!

Vejam essa rotina:

On Error Resume Next
If (txt_usuario.Text <> "") Then
    txt_usuario.Text = Format(txt_usuario.Text, "000")
    vtbVendedor.MoveMin
    vtbVendedor.Find "codigo = " & txt_usuario, , , 1
    If Not vtbVendedor.EOF = False Then  ' se encontrou
        MsgBox "Vendedor não cadastrado", vbInformation, "Informação"
        txt_usuario.SetFocus
    End If
End If

acontece o seguinte: quando digito numeros que é o que tem no banco de dados a consulta é feita normalmente. aconcete que, se eu digitar letras dá o seguinte erro:

 

run timer erro '3001':

os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito

 

o que pode ser?

 

gratos

 

vanderlei

pode ser o tipo de dados ...

 

o campo código no BD eh Numero ou String ? se for numero colocar Cint(txt_usuario)

o campo no bd é string...... continua o erro... o mesmo erro dá quando consulto nome de cliente por exemplo.

que componente é esse q vc tah usando pra executar a consulta ?

 

não seria mais fácil se vc usasse SQL ?

 

na minha opinião o erro pode estar nessa linha...

 

 

eu acho que pode ser um desses dois ...

 

na tabela vc ta gravando o vendedor com o Código com a String

por ex: codigo = 001 ?? ou simplesmente 001 ?

 

se puder descrever um pouquinho melhor .. é mais fácil pra ajudar...

valew...