Non riesco a caricare i valori sulla combo, presi dal database

Set Cn2 = New ADODB.Connection
Cn2.CursorLocation = adUseClient


Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\Turni.mdb"


Set rsRecordSet2 = New ADODB.Recordset
rsRecordSet2.Open "SELECT [Classificazione] From Treni Group by Classificazione Order by Classificazione", Cn2, adOpenStatic, adLockOptimistic



Se ora li carico in una datagrid, funzionano perfettamente

Set Me.TDBGrid1.DataSource = rsRecordSet2

Se invece li aggancio ad una combo, non funziona....sicuramente sbaglio la sintassi:

Set Me.Combo1.DataSource = rsRecordSet2


Mi potete correggere

Ciao e grazieeeeeeeeee