Set DataCombo2.RowSource = RsData2
DataCombo2.ListField = "Prodotti"
.... :master: .. non capisco cosa ti servono queste 2 righe di codice.
una volta che hai creato l'oggetto connection e il recordset
ti basta prendere l'esempio che ti ho postato e adattarlo alla tua necessita.. es:

codice:
If RsData2 .RecordCount >= 1 Then
    RsData2 .MoveFirst
    DataCombo2.Clear
    Do Until RsData2 .EOF
    DataCombo2.AddItem RsData2 ("Prodotti")
    DataCombo2.ItemData(DataCombo2.newIndex) = RsData2!ID 
    RsData2 .MoveNext
    Loop
End If
quello in rosso gli passo il campo contatore id per avere un collegamento corretto !!!
ciao