=== 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 ???