if veritabanım boş ise     ////buraya ne yazmalıyım ki yada kodlarda başka hata varmıdır  teşekkür ederim
DoCmd.SetWarnings False 
DoCmd.OpenQuery "SQLTablo1Ekle"
DoCmd.SetWarnings True
Me.Liste5.Requery
Me.Recordset.MoveFirst
else
Me.Recordset.MoveFirst
rs.FindFirst "[odmtrh] Like '" & Me.Metin51 & "'"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
MsgBox ("kayıt var")
Else
DoCmd.SetWarnings False 
DoCmd.OpenQuery "SQLTablo1Ekle"
DoCmd.SetWarnings True
Me.Liste5.Requery