Access, Durchsuchen Fenster für Links

Ich möchte in meiner Access Datenbank einen Button der mir ein Fenster öffnet in dem ich einen gewissen Ordner suchen kann. Der Pfad dieses Ordners wird dann in ein Feld für einen Hyperlink geschrieben.

Hallo zusammen

Wie oben bereit erwähnt möchte ich in meiner DB einen Button der mir ein Fenster öffnet in dem ich einen bestimmten Ordner, oder eine Datei suchen kann. Der Pfad wird dann in ein Hyperlink Feld im Access Formular geschrieben.
Hierzu habe ich folgende Anleitung gefunden:

http://support.microsoft.com/kb/888695/de

Leider funktioniert dies nicht für Ordner.
Weiss jemand wie das geht?
Achja ich habe so gut wie keine Erfahrung mit VBA, also bitte auch für Anfänger verständlich schreiben ;)
Ich verwende Access 2003

MfG Valume

Private Function OrdnerDialog() As String
    Dim oShell As Object
    Dim oOrdner As Object
    
    Set oShell = CreateObject("Shell.Application")  
    Set oOrdner = oShell.BrowseForFolder( _
        Me.hWnd, "Bitte einen Ordner auswählen", 1)  
        
    If Not oOrdner Is Nothing Then
        OrdnerDialog = oOrdner.Self.Path
    End If
    
    Set oOrdner = Nothing
    Set oShell = Nothing
End Function

Private Sub Befehl0_Click()
Pfad = OrdnerDialog()
MsgBox Pfad
End Sub