(Resolvido) como carregar dados de uma base de dados access em um comb

[invesivel]

estou encontrando problemas ao tentar carregar os dados de uma base de dados access em um combobox. um codigo identico eu já havia utilizado mas no VB6 e funcionou. mas agora estou tentando com vb2005 e ao invez de carregar os dados que estao na coluna da tabela que eu indico ele carrega com o seguinte:

ADODB.InternalField

ADODB.InternalField

ADODB.InternalField.

eu não porque q isso acontece já que en nenum dos campos da minha tabela está presente esta informação.

o codigo que usei é o seguinte:

Dim conexao As ADODB.Connection
        Dim conjRegistos As ADODB.Recordset

        Dim comando As String
        Dim consulestruturada As String
        comando = "provider=microsoft.jet.oledb.4.0;" & "data source=" & "C:\Documents and Settings\Francisco Bumba\Os meus documentos\base.mdb"
        conexao = New ADODB.Connection

        With conexao
            .connectionstring = comando
            .open()
        End With

        consulestruturada = "select * from geral"
        conjRegistos = New ADODB.Recordset
        'id_rede = New ADODB.Recordset

        With conjregistos
            .Open(consulestruturada, conexao, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)

            Do While Not conjRegistos.EOF
                ComboBox1.Items.Add(conjRegistos("ID_Rede"))
                conjRegistos.MoveNext()
            Loop
            .Close()
        End With
        conjRegistos = Nothing
        conexao.Close()
        conexao = Nothing

end sub

Editado Julho 14, 2009 por quintelab
Adicionado BBCode Code

[quintelab]

invesivel, seja bem vindo ao Fórum, conheça nossas regras: Regras do Fórum

De uma olhada neste link: http://www.macoratti.net/vbn_cbo.htm

Abraços...

[invesivel]

invesivel, seja bem vindo ao Fórum, conheça nossas regras: Regras do Fórum

De uma olhada neste link: http://www.macoratti.net/vbn_cbo.htm

Abraços...

Obrigado Quintelab,

com aquela informação,funcionou certinho.