veritabani.mdb bağlantı sorunu

[ekoteto]

selamlar

Private Sub CommandButton2_Click()
Set baglan = CreateObject("Adodb.connection")
baglan.provider = ("microsoft.jet.oledb.4.0")
baglan.Open "c:\deneme\veritabani.mdb"
Label4.Caption = "bağlantı kuruldu"

excell 2007 kullanıyorum ve access2007 database baglantı kurmak istiyorum.
Fakat bu komut satırını yazınca karşıma hata mesajı çıkıyor. mdb dosyasını bulamadıgı mesajı çıkıyor halbuki bu mdb dosyası var, nerde yanlış yaptıgımı bilmiyorum yardımcı olurmusunuz arkadaslar.

 

[security]

selamlar

Private Sub CommandButton2_Click()
Set baglan = CreateObject("Adodb.connection")
baglan.provider = ("microsoft.jet.oledb.4.0")
baglan.Open "c:\deneme\veritabani.mdb"
Label4.Caption = "bağlantı kuruldu"

excell 2007 kullanıyorum ve access2007 database baglantı kurmak istiyorum.
Fakat bu komut satırını yazınca karşıma hata mesajı çıkıyor. mdb dosyasını bulamadıgı mesajı çıkıyor halbuki bu mdb dosyası var, nerde yanlış yaptıgımı bilmiyorum yardımcı olurmusunuz arkadaslar.

Merhaba Aşagıdaki Kodu Denermisiniz...

Private Sub CommandButton2_Click()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=C:\deneme\veritabani.mdb"
Label4.Caption = "Baglantı Kuruldu"
End Sub