Urgente:inserire Nomi File In Combo Box

[pascan2]

Salve,
allora il problema è questo:
dato un certo path voglio inserire in un combo box tutti i nomi dei file che hanno l'estenzione *.MDB. (solo MDB)
Grazie

[tas]

Dim s As String
Dim path As String

path = "C:\windows\"

s = Dir$(path & "*.mdb")

Do Until s = ""
    Combo1.AddItem s
    s = Dir$
Loop