Erro ao buscar

[Alex-jpa 0]

Fala galera

 

 

Estou montando um programinha que cadastra direto no BD Access. Eu tive que mudar a conexão do BD que dados que era para access 97... ao mudar a busca não mais funcionou.

 

 

Vejam:

 

 

CONEXOÃO ANTIGA

***********************************

Private Sub Form_Load()

 

Data1.DatabaseName = App.Path & "\Cadastro.mdb"

 

End Sub

 

 

CONEXÃO NOVA

***********************************

Private Sub Form_Load()

sPath = _

"C:\cadastro\Cadastro.mdb"

Set daoDB36 = DBEngine(0).OpenDatabase(sPath)

Set rs = daoDB36.OpenRecordset("Cadastro")

Set Data1.Recordset = rs

End Sub

 

 

 

BUSCA

************************************

Private Sub cmdBuscar_Click()

 

Select Case OptVendedor = True

 

Case OptVendedor

Dim vVendedor As String

 

vVendedor= InputBox("Digite o nº do vendedor cadastrado:")

frmPrincipal.Show

frmPrincipal.Data1.Recordset.FindFirst "Vendedor Like'" & vVendedor & "'" ****** ERRO NESSA LINHA

Unload Me

 

If frmPrincipal.Data1.Recordset.NoMatch = True Then

MsgBox "Este vendedor não foi encontrado!!!"

frmPrincipal.Show

Unload Me

End If

 

 

 

 

End Select

 

End Sub

 

 

***********************

 

 

 

OBRIGADO PELA AJUDA

 

 

 

ALEX

[Luizgrs 0]

Qual o erro retornado?