aynı form içinde farklı 2 baglantı

[uguristanbul]

arkadaslar
form da
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 Sub listeye_al()
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [komisyon]", baglan, 1, 1
With ListBox1
.RowSource = Empty
.ColumnCount = 12
.ColumnWidths = "00;80;80;80;80;80;80;80;80;80;80;80"
.Column = rs.getrows
End With
rs.Close
Set rs = Nothing
End Sub
bu kodlarla accesde kayıtlı komisyon veri tabanına baglanıyorum
ancak
aynı form içinde farklı bir access taban veya tabanlarına baglanmak için ne yapmalıyım
saygılar
doya buyuk ekleyemedim
kısaca soyle anlatayım
yukardaki kodlarla
1 nolu access dosyasının içindeki komisyon veri tabanına baglanıyorum(sorun yok)
ancak aynı form içinden
2 nolu access dosyasının sirket veri tabanınada baglanmak zorundayım ne yapmalıyım