[Meteora]

Λέγε και καμιά ...καλησπέρα!
Όταν σε αυτό το Forum κάνεις ερώτηση, δεν ρίχνεις κέρμα σε JBOX και περιμένεις μετά αμανέδες ...του Στέλιου!
Λοιπόν!
Η μεταβλητή χ περιέχει αυτό που θες.

Private Sub Koumpi_Click()
Dim x As String
 x = OpenFileDialog
End Sub

Function OpenFileDialog() As String
    Dim sFile$, sFilter$, sTitle$
    sFilter = "Access Database (*.mdb)|Access 2007 Databases(*.accdb)"
    sTitle = "Choose the Back-End-File..."
    WizHook.Key = 51488399
    WizHook.GetFileName 0, "", sTitle, "", sFile, CurrentProject.Path, sFilter, 0, 0, 64, True
    OpenFileDialog = sFile
End Function

Αυτά! / Νίκος Δ.

Υστερολόγιο : Μπορείς να προσαρμόσεις το φίλτρο -της συνάρτησης- στις επιθυμίες σου