2 farklı veri tabanına baglanmak

[uguristanbul]

Private baglan As Object, rs As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\komisyon.mdb"
End Sub
Private baglan2 As Object, rs As Object
Sub baglanti2()
Set baglan2 = CreateObject("adodb.connection")
baglan2.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\sirket.mdb"
End Sub
yukardaki kodlardan birini kullanırsam sorun yok ancak
form icinde 2 farklı (hatta daha fazla )acess dosyasına baglanmam
gerekiyor ama beceremedim
dosya buyuk olduğu icin eklemeyedimde
lutfen yardım