1 - tablonuzda [tarih] alanı yok odmTrh ve KrTcOdmTrh alanları var belirttiğiniz adda bir alan yok
2 -

, odeme.kimde,

alanından sonra fazladan bir virgül var
eğer sorgunuzu aşağıdaki gibi düzenlerseniz çalışır
[tarih] yerine [odmTrh] aldım

Dim SqlSirala, txtSira As String



SqlSirala = " SELECT odeme.Kradsoyad, odeme.KrTc, odeme.Kvadsoyad, odeme.KvTc, odeme.odmTrh, odeme.KrTcOdmTrh, odeme.kimde " & _

            " FROM odeme " & _

            " WHERE ((([odmTrh]) Between " & CLng(Me.Metin79) & " And " & CLng(Me.Metin82) & "));"

Me.Liste5.RowSource = SqlSirala

3 - kod sayfanızın en başında virgül koyulmuş debug yaparsanız gösterir
4 - ((([tarih] Between " & Me.Metin79 & " And " & Me.Metin82 & "));" açılan ve kapanan parantez sayısı eşit olmalı [tarih] sonra bir kapama parantezi eksik