Olá pessoal, olha eu aqui de novo, mas é que não domino o VB

 

Tenho um sistema e estou utilizando ADo via código para acessar o BD. Acontece que quando tento localizar algum registro dá erro. O Código está certo:

 

rs1.find "ID = " & varCódigo ´localiza o cliente de Código xxx

if rs1.eof() = true then exit sub

MostraDados ´exibe os dados dos campos no form

Mas qual o erro q acontece?? Em qual linha??

Vc poderia colocar tb o seu código de conexão ao BD por favor??

 

obrigado!

=== No general declarations

 

Public Cn1 As ADODB.Connection
Public Rs1 As ADODB.Recordset

=== No Form Load

 

Set Cn1 = New ADODB.Connection
Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Controle.mdb;Jet " & "OLEDB:Database Password=sr4530;"
Set Rs1 = New ADODB.Recordset
Rs1.CursorType = adOpenKeyset
Rs1.LockType = adLockOptimistic
Rs1.ActiveConnection = Cn1
Rs1.Source = "Select * from Internet2 Order by ID"
Rs1.Open

=== No botão Localizar

 

Dim varLocaliza As Integer
varLocaliza = InputBox("Digite o código do cliente:", "SCAI")
Rs1.Find "ID = " & varLocaliza
If Rs1.EOF() = True Then
    MsgBox "Usuário não cadastrado.", vbInformation + vbOKOnly, "SCAI"
Else
    Atualiza
    cmdFechar.SetFocus
End If

E o VB fala que não encontrou o Cliente

 

O que estou fazendo de errado ???

Testei o seu código e está tudo certo só q ao q parece é q o ponteiro está sendo perdido após o rs1.find "ID ...", acho q seja isso, os colegas com mais conhecimento me corrijam se eu estiver errado.

Então acrescente esta linha: