ADO ile İhale Teslim ve Sözleşme Tarihi yaklaşanları listelemek

[yakamozexcel]

Merhaba
İhale Teslim ve Sözleşme Tarihi yaklaşanları listeleyecek ADO koduna ihtiyacım var.
ayrıca ek olarak Dizi(Array) Dictionary kodlarıyla örnekler de olursa sevinirim.

K sütununda formül var ama o sütun ilerde kaldırılacak. açıklamaya destek için ekledim.

2. ListBox Teslim Tarihi;
SON TESLİM TARİH (G Sütunu) 'inde 10 önce başlayarak son 3 gün kalaya kadar listede (2. ListBox) gösterilmesi gerekiyor
bu 10 gün ve 3 gün değişken olabilir (J ve I Sütunları)

3. ListBox Sözleşme Bitiş Tarihi;
SÖZLEŞME BİTİŞ TARİHİ (N Sütunu) 'inde 1 ay önce önce başlayarak son 3 gün kalaya kadar listede (3. ListBox) gösterilmesi gerekiyor

Umarım anlatabilmişimdir.

Örnek dosyayı ek olarak sunuyorum.

Yardımlarını esirgemeyenlere şimdiden teşekkür ederim.
Saygılarımla,

 

[yakamozexcel]

Dim fdate As Date
fdate = Format(Now, "mm.dd.yy")

sqlAdo = "select * from [Sayfa1$] WHERE [Sayfa1$].[SON TESLİM TARİH] BETWEEN " & fdate & ">=" & (VBA.CDate([F7]) - VBA.Day([F10])) & " And " & fdate & "<=" & (VBA.CDate([F7]) - VBA.Day([F9]))

rs.Open sqlAdo, baglanti, adOpenKeyset, adLockPessimistic

SQL ADO ifadesinden kaynaklı hata alıyorum.

Nasıl bir ifade yazmam gerekiyor yardımlarınızı bekliyorum.

 

[yakamozexcel]

Bağlantı ve SQL ifadesini değiştirerek sorunu çözdüm kullanmak isteyenler için son halini ekledim.
Tarkan VURAL hocama da yardımları için teşekkür ederim.