Atualização de Campos de Formulário

[Netanias 0]

Olá estou com o seguinte problema:Estou desenvolvendo um sistema em Visual Basic 6 Professional e estou com o problema abaixo:1º. Criei um módulo para conectar ao Banco de Dados...======================================Public CaminhoBanco As ADODB.ConnectionPublic Sub ConectaBanco() Dim CaminhoBanco Set CaminhoBanco = New ADODB.Connection CaminhoBanco.Provider = "Microsoft.Jet.OLEDB.4.0" CaminhoBanco.Open App.Path & "\Dados\bd_Xtreme.mdb"End SubPublic Sub DesconectaBanco() CaminhoBanco.CloseEnd Sub======================================2º. No Formulário Cadastro_Pessoas.frm inserir o seguinte código:======================================Option ExplicitPrivate TabelaPessoas As ADODB.RecordsetPrivate Sub Form_Load() Call ConectaBanco Dim TabelaPessoas Set TabelaPessoas = New ADODB.Recordset TabelaPessoas = "SELECT * FROM Pessoas" cmb_TIPO = TabelaPessoas("TIPO") cmb_RELACAO_COMERCIAL = TabelaPessoas("RELACAO_COMERCIAL") txt_NOME = TabelaPessoas("NOME") End Sub======================================Mas, quando eu mando executar o Formulário, ele dá um erro de ================Compile Error:Invalid use of property================Já tentei das seguintes formas:======================================= cmb_RELACAO_COMERCIAL = TabelaPessoas(0) cmb_RELACAO_COMERCIAL = TabelaPessoas("RELACAO_COMERCIAL") cmb_RELACAO_COMERCIAL.Text = TabelaPessoas(0) cmb_RELACAO_COMERCIAL.Text = TabelaPessoas!RELACAO_COMERCIAL=======================================Mas num dá nada.... Sempre dá erro:Qual o modo correto de atualizar esses campos? Valew pela ajuda!

[luiz humberto 0]

Utilize a idéia abaixo e adapte para o seu contexto, lembrando que não pode fechar a conexão do banco no procedimento em que abre, pois irá retornar um erro quando for conectar o RecordSet, faça isso logo após popular a combo.

Call ConectaBancoDim TabelaPessoas As New RecordsetDim SQL_Query As StringSQL_Query = "SELECT * FROM Pessoas"With TabelaPessoasIf .State = 1 Then  TabelaPessoas.open SQL_Query, CaminhoBanco  While Not .EOF	Cmb.AddItem !Descricao	Cmb.ItemData(Cmb.NewIndex) = !Codigo  WendEnd IfEnd With