Merhabalar, excelin açılışında çalışan bir kodum var.  Açılışta Excel iki adet Access dosyasına bağlanıyor ve sorgulardan veriyi çekiyor ve bağlantıyı kapatıyor. accesslerden birinde hiç bir sorun olmamasına rağmen. Exceldeki kod bir kez çalışınca  diğer Access dosyasını bir daha açamıyorum. sürekli veritabanı dosyası girin hatası veriyor, parola koruması olmamasına rağmen. Elimdeki yedeklerden bir kaç kez denedim. Kod çalıştıktan sonra hata meydan geliyor. Niye böyle oluyor bir türlü çözemedim. Aşağıdaki Excel kodları ile ilgili bir sorunmu var, yoksa accees ile ilgili bir sorunmu. yardımcı olursanız sevinirim. 

Private Sub Workbook_Open()

Sheets("Ajanda").Activate



Set baglan = CreateObject("adodb.connection")

baglan.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Finansman\Documents\Cari Hesaplar\araclar.mdb;"





Set rs = baglan.Execute("SELECT * FROM Sayvize")

Sheets("Ajanda").Range("a4").CopyFromRecordset rs



Set rs = baglan.Execute("SELECT * FROM Saytrafik")

Sheets("Ajanda").Range("b4").CopyFromRecordset rs



Set rs = baglan.Execute("SELECT * FROM SayKasko")

Sheets("Ajanda").Range("c4").CopyFromRecordset rs



Set baglan = Nothing: Set rs = Nothing:



Set baglan2 = CreateObject("adodb.connection")

baglan2.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Finansman\Documents\diğer\teminat mektupları.mdb;"



Set rs = baglan2.Execute("SELECT * FROM mk")

Sheets("Ajanda").Range("d4").CopyFromRecordset rs



Set baglan2 = Nothing: Set rs = Nothing:



If Sheets("Ajanda").Range("a4").Value + Sheets("Ajanda").Range("b4").Value + Sheets("Ajanda").Range("c4").Value > 0 Then

MsgBox "Araçlarda günü gelen var", vbOKOnly, "Hata"

End If



If Sheets("Ajanda").Range("d4").Value > 0 Then

MsgBox "Mektuplarda günü gelen komisyon var", vbOKOnly, "Hata"

End If



End Sub