Procurar na Combox x Recordset

[George Ferraz]

Dia rapazeada "não consigo fazer com que minha combox pesquise os codigos já existentes no banco de dados" essa duvida que venhe aos alguns dias e não acho solucao, abaixo descrevo o pipino:

LostFocus da Combox

CmbCli.Text = Right("000000" + Trim(CmbCli.Text), 6)
   Do While Not DTEnv.rsCmdTbPJCli.EOF     
       If DTEnv.rsCmdTbPJCli.Fields("Codigo") = CmbCli.Text Then
          MsgBox "Código Digitado Já Existe !", vbInformation
          CmbCli.Text = Empty
          CmbCli.SetFocus
          Exit Do 'Para o Loop
          exit sub 'Para não executar a última linha da sub 
       End If
       Rs.MoveNext 'Se o if for falso, vai ao proximo registro e repete a operação
  Loop
  TxtNCli.SetFocus
End Sub

mais rola um pau, o erro e o seguinte: Run-Time Error '2147217842(80040e4e): Operação será cancelada Abaixo eu mostro a quia General:

Option Explicit
Dim db As Database
Dim rs As Recordset

Abro o Recordset desta forma:

Set db = OpenDatabase("C:TesteSyscom_1.2dados.MDB")

E como Gravo no Banco assim:

Private Sub IvBGrav_Click()
'Abri a tabela para gravação
'Depois fecha a tabela para preservar os dados

Set rs = db.OpenRecordset("TbPFisi")

rs.AddNew

rs.Fields("Codigo") = CmbCli.Text
rs.Fields("Nome") = TxtNCli.Text

rs.Update
rs.Close

Favor se alguém poder me ajudar eu fico muito grato, valeu.

[kuroi]

mais rola um pau, o erro e o seguinte:

Run-Time Error '2147217842(80040e4e): Operação será cancelada

george, mas em qual das linhas ocorre o erro??

uma dica, ele nunca vai passar pelo Exit Sub se você dexar o Exit Do na frente.

[George Ferraz]

kuroi a linha do erro he essa abaixo:

If DTEnv.rsCmdTbPJCli.Fields("Codigo") = CmbCli.Text Then

Eu conseguir resolver o pipino, foi assim eu estava querendo fazer este procedimento atreves de um DataEnvironment, dai não ia rola certo, sempre que eu setava ele não achava esta linha por conta do "DTEnv". Mais valeu mano por mais uma dica. B)