vc tem q setar as propriedades rowsource e listfield...
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.Open Sua_conexao
rs.CursorLocation = adUseClient 'importante!
rs.Open "Select * from Sua_Tabela", cnn
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "campo"
End Sub
ok??
t+