Erro no Find

[aleinfo 0]

Pesquisa de nome e senha, se a nome e senha forem validos eles abrem o menu do programa caso contrario da mensagem de inexistente.

Ao executar o codigo ele pede nome e senha e tem um botão entrar que esta abaixo o codigo

So que clicando em entrar ele informa que :

Os argumentos são incorretos ou estão fora do intervalo aceitavle ou estão em conflito.

 

Alguém pode me ajudar

 

Private Sub cmdentrar_Click()Dim criterio, codigo As Stringcodigo = txtnome.TextIf codigo = Empty Then Exit Subcriterio = "nome =" & codigors.MoveFirstrs.Find criterio, 0, adSearchForwardIf rs.EOF Then  rs.MoveLast  MsgBox "Funcionario Inexistente"  txtnome.Text = "" 'Limpa as caixas de texto  txtsenha.Text = ""End IfEnd Sub

[aleinfo 0]

Para quem tiver a mesma duvida que eu ai segue a respostacriterio = "nome ='" & codigo & "'"Motivo: Lembre-se que strings (textos) em uma SQL (ou em um critério, como é o caso) devem ficar entre aspas, assim como as strings do VB.A resposta foi dada no Forum do ScriptBrasil...

[eriva_br 7]

para campos texto você deve colocar as aspas simples 'criterio = "nome = '" & codigo & "'"falows,

[eriva_br 7]

caraca hein, resposta na mesma hora: 08:14 AM

[vib 0]

é verdade hahaha :D ;)