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

Nenhuma alma caridosa pra me ajuda :(

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.