Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _

"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=" &  oTarihi & ") AND ((TLB_AdresDegisikligi.Tarih_Bit)>=" &  oTarihi & "));"

kodunu dener misiniz?
örnek çalışmanız olmadığından öneriler yardımcı olamayabilir.
Not: burada hata kontrolü yapılmadığından ilgili alandaki verilerin uygun formatta eklendiği varsayılmıştır