Private Sub AdresBul_Click()
Dim vDir As Variant
Dim Sonuc As String

With Application.FileDialog(msoFileDialogOpen)
    
        .Title = "Select a file"
        .Filters.Clear
        .Filters.Add "Access files", "*.accdb, *.mdb"
        .AllowMultiSelect = False
        .Title = "Dosya Seçiniz"
        .InitialFileName = CurrentProject.Path
        
        Sonuc = .Show
        
            If (Sonuc <> 0) Then
                Me![Metin4] = Trim(.SelectedItems.Item(1))

        End If
    End With


End Sub

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr