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
