aşağıdaki kodu dener misiniz?
önce tarih alanının olduğu metin kutusundaki değer tarihe çevrilmeli: CLng(CDate(Me.Metin131)) <-- önce tarihe sonra da uzun tamsayıya çevriliyor
not: metin kutusu boş olduğunda yada kayıt bulunamayınca ne yapılacak bilemediğim için kodu böyle bıraktım

If IsNull(Me.Metin131) Then GoTo 100

Dim rst As Recordset

Set rst = Me.RecordsetClone

rst.FindFirst "[tarih] = " & CLng(CDate(Me.Metin131))

    If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark

rst.Close

100