Boa noite Bruno, blz?

 

Caso não seja cadastrado, por favor cadastra-se, é rápido e não tem custo nenhum falows ? :)

 

Em relação à sua pergunta temos 2 dicas do site:

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=3330&Classificacao=
http://www.vbweb.com.br/dicas_visual.asp?Codigo=3228&Classificacao=

 

Ou vc pode inserir um Activex. Vá no menu "Project...Components" e marque o item "Microsoft DataList Controls 6.0 OLEDB". Depois vá no menu "Project...References" e marque o item  "Microsoft ActiveX Data Objects X.X Library" onde X.X é a versão e pode ser qualquer uma.

 

Insira o datacombo e no código coloque assim:

 

'SENDO DBC um controle datacombo

 

Dim CNN As ADODB.Connection
Dim RS As ADODB.Recordset

Private Sub Form_Load()

Set CNN = New ADODB.Connection
Set RS = New ADODB.Recordset

 

CNN.CursorLocation = adUseClient
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:     este.mdb"

RS.Open "tabela", CNN

 

Set DBC.RowSource = RS
DBC.ListField = "campo"

End Sub

ghost nao consegui preenche um combo desse jeito ai nao, primeiro que nao achei a propriedade listfield, ai coloquei na datafield, ai nao da erro nenhum, mas tb ele nao preenche nada e o rs esta com 5 registros, estranho né? sabe me falar pq nao preenche o rs ?

Cara eu faço assim - E funciona muito bem.

 

Dim rsCarrega as new adodb.recordset

 

sql = " select * from fornecedores "

 

rscarrega.open sql, (nomedaconexãocomoaccess)

 

If rscarrega.eof > 0 Then

moveMin

   Do while

      rscarrega.eof = false

      combo1.additem rscarrega!(nomedocampoquequisercarregar)

      rscarrega.movenext

   Loop

End if

 

    Set rscarrega = nothing ( Pra tirar o recordset da memória)

Cardoso G, vc está usando um DataCombo? O exemplo que passei é para DataCombo? Se está qual a versão?