ö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