Atualização de Campos de Formulário

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!