grazie.. io nel frattempo ho fatto così:

cmb_matr1.Clear

Set dbAss = OpenDatabase(App.Path & "\db\db1.mdb")
strSQL = "SELECT * FROM registro_carico WHERE cod_modello ='" & cmb_mod1.ItemData(cmb_mod1.ListIndex) & "'"
Set rsMatricole = dbAss.OpenRecordset(strSQL)

'Genera la combo delle matricole1
With rsMatricole
.MoveFirst
While Not .EOF
cmb_matr1.AddItem !matricola
cmb_matr1.ItemData(cmb_matr1.NewIndex) = rsMatricole("contatore").Value
.MoveNext
Wend
End With

rsMatricole.Close
dbAss.Close