Commondialog fungere ikke

Jeg har et meget simpelt lille stykke kode som refere til en knap, som åbner en dialogbox, hvorefter man kan vælge en fil og filnavn og sti bliver så sat ind i et tekst felt.

Private Sub BtnScreen2_Click()
    Dim dlg As New CommonDialog
    Dim StrFilter As String
   
    StrFilter = dlg.AddFilterItem(StrFilter, "Alle filer (*.*)", "*.*")
    StrFilter = dlg.AddFilterItem(StrFilter, "Jpg-filer (*.jpg)", "*.jpg")
    StrFilter = dlg.AddFilterItem(StrFilter, "Bmp-filer (*.bmp)", "*.bmp")
    dlg.DialogTitle = "Find fil"
    dlg.Filter = StrFilter
    dlg.ShowOpen
    Me.Screenshot2 = dlg.filename
End Sub


Problemet er bare at jeg ikke kan finde ud af, hvor jeg går galt.
Jeg har benyttet næsten præcis samme kode i en anden database, og der virker den fint. I den database jeg arbejder på nu... fungerer det bare ikke. Hvorfor? Anyone?