VBA ile ODBC baglantısını Dinamiklestirmek

[speed1]

Merhaba Arkadaşlar;

Makinama İnterbase Veritabanı Kullanan bir program için ODBC ile bağlantısı kurdum ve aşağıdaki gibi VBA da bağlantısını ayarladım. İstediğim Su;
Excelde Ayarlar diye bi sayfa ayırsam buraya Bağlantı adını girsem ODBC ile bağlanırken iki tane bağlantım var
1. bağlantı Networkteki SERVER den alıyor.
2. bağlantı ise kendi makinamdan localden alıyor.

"ODBC;DSN=Baglantim;UID=SYSDBA;PWD=masterkey" satırındaki Baglantim yazan yere exceldeki ayarlar tablosunda yazan isim gelecek.
bunu
ODBC;DSN='" & sheets("Ayarlar").Range("B1") & "';UID=SYSDBA;PWD=masterkey şeklinde de denedim ama olmadı.
Bunu parametrik olaran nasıl ayarlayabilirim buraya;

2. sorumnda aşağıdaki SQL satırında tarih 1 ve tarih2 alanlarını Ayarlar sayfasındaki tarihler yazılarak nasıl parametrik yapılabilir.

SQL ="select * from tablo1 where tarih1>='" & tarih1 & "' and tarih2=<='" & tarih2 & "' "


With Sayfa7.QueryTables.Add(Connection:= _
"ODBC;DSN=Baglantim;UID=SYSDBA;PWD=masterkey;" _
, Destination:=Range("A5"), _
Sql:=sSql)

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

With Sayfa7.QueryTables.Add(Connection:= _
"ODBC;DSN=" & sheets("Ayarlar").Range("B1") & ";UID=SYSDBA;PWD=masterkey;" _
, Destination:=Range("A5"), _
Sql:=sSql)