aşağıdaki gibi düzenler misiniz?
2 yerde hata yapmışım
1 - çift tırnak içinde çift tırnak kullanmışım, tek tırnağa çevirdim
2 - formattan sonra kriter metin gibi işlem görmeliydei başına ve sonuna tek tırnak ekledim

Private Sub Form_Load()

    Me.Filter = "format([Tarih],'mm.yyyy')='" & Format(Date, "mm.yyyy") & "'"

    Me.FilterOn = True

End Sub