التبديل بين قواعد البيانات لنفس المشروع

ضع زرين على فروم بحيث واحد للشركة الاولى والاخر للثانية

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\DB1.MDB"
Adodc1.Refresh
End Sub

Private Sub Command2_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\DB2.MDB"
Adodc1.Refresh

End Sub

جزاك الله كل خير علي الافادة

انا حلتها بأسلوب بدائي جدا قبل ما اعرف حل حضرتك الجميل

وهو

عملت في النموذج 2 Adodc و معاهم 2 Option و DataGrid و ربط كل Adodc بواحدة من قاعدة البيانات

و غيرت في ربط التيكست بالـ ADODC بالكود ده

If Option3.Value = True Then
Set Text1.DataSource = Adodc2
Set Text2.DataSource = Adodc2
Set Text3.DataSource = Adodc2
Set Text4.DataSource = Adodc2
Set Text5.DataSource = Adodc2
Set Text6.DataSource = Adodc2
Set DataGrid1.DataSource = Adodc2

ياريت اعرف رأي حضرتك في الكود البدائي وايه عيوبه وازاي اتلافي عيوبه