Urgente:inserire Nomi File In Combo Box

[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