Preciso De Ajuda!

[ShiHan]

Pessoal eu to aprendendo a mexe com vb6 e encontrei um problema que não consigo resolver, se alguém puder me ajudar fico grato.

Quando executo meu projeto ele apresenta um problema nessa parte:

=======================================

Private Sub Command2_Click()

Set Banco = OpenDatabase("C:\Trabalho\DbCurso.mdb")

Set Tabela = Banco.OpenRecordset("clientes", dbOpenTable)

Text3.Text = Tabela.Index = "IndRazaoSocial"

Tabela.Seek "=", "Rodrigo"

End Sub

=======================================

fala que eu devo fixar o índice e tentar novamente.

[ShiHan]

Nenhuma alma caridosa pra me ajuda

:(

[Graymalkin]

Creio que a linha...

Text3.Text = Tabela.Index = "IndRazaoSocial"

... deveria ser:

Tabela.Index = "IndRazaoSocial"

Teste aí e diga o resultado.

Abraços,

Graymalkin

[ShiHan]

vlw Graymalkin

assim fecho certinho

==============

Tabela.Index = "IndRazaoSocial"

Tabela.Seek "=", "Rodrigo"

If Tabela.NoMatch Then

MsgBox "Cliente não encontrado!"

Else

Txt3.Text = Tabela!RazaoSocial

End If

==============