merhabalar, alanlarımı tek tek kontrol ettim bi sıkıntı,boşluk vesair görünmüyor, ama ısrarla bu hatayı veriyor, acaba nerede hata yaptım bi bakabilir misiniz rica etsem?



Sorgu = "select [NO],[İHALENİN ADI],[İHALE KAYIT NO], [İHALE TARİHİ], [FİRMA ADI], [FİRMA ADRES VE TELEFONU],[SÖZLEŞME TUTARI],[BANKA VE ŞUBESİ], [ALINAN TEMİNAT MEKTUP/MAKBUZUN TARİHİ],[SERİ NO VEYA MEKTUP NO],[TEMİNAT TUTARI],[GEÇERLİLİK SÜRESİ],[TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ],[SÖZLEŞMENİN BAŞLANGIÇ TARİHİ],[SÖZLEŞMENİN BİTİŞ TARİHİ] from [Sayfa1$] where [TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ]= date()+30 or [TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ]= date()+15 or [SÖZLEŞMENİN BİTİŞ TARİHİ]=date()+30 or [SÖZLEŞMENİN BİTİŞ TARİHİ]=date()+15"
Rs.Open Sorgu, Con, 1, 1