جستجو بین دوتاریخ از یک کد

با سلام خدمت اساتید محترم

من در اکتیو ریپورت از کد زیر جستجو می کنم ولی اگر عدد2 ویا مشابه ان را جستجو کنم هرچه عددی که اولش 2باشد و با عوض کردن 'and Left به راست هرچه عددیکه سمت راست ان 2با شد سرچ می کند چطوری می شود که فقط عددی که داخل تکس نوشته می شود سرچ کند

With dc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db3.mdb;Persist Security Info=False; Jet OLEDB:Database "
.Source = "select * from amal where date between '" & Field39 & "' and '" & Field40 & "'and Left(cod, " & Len(Field19) & ")='" & Trim(Field19) & "'"
.Refresh
End With