usi un datacontrol come origine dati della combo?
se è così probabilmente devi dare un refresh al datacontrol o alla combo

altrimenti se usi ado come origine dati devi caricare i valori nella combo:
...
Set rs = conn.Execute("SELECT field1 FROM table1")
Do Until rs.EOF
combo1.AddItem rs!field1
rs.MoveNext
Loop

Private Sub Combo1_Click()
Set rs = conn.Execute("SELECT field1 FROM table2 WHERE field0=" + combo1.text)

Do Until rs.EOF
combo2.AddItem rs!field1
rs.MoveNext
Loop
End Sub
...

spero possa esserti di aiuto,
fammi sapere