[ربيع]

نحمده ونصلي على رسوله الكريم

بارك الله فيك وجزاك خيرا

لي تعليق بسيط

هذا الاجراء:

كود :

ConnectToSqlServer()
ConnectToMSAcess()

ارى - من وجهة نظري فقط ولك الخيار - ان يكون اجراء واحد فقط مع وسيطه يحدد فيها المستخدم او المبرمج نوع الاتصال:

كود :

Public Enum Connection
   SQLServer
   Access
End Enum

Public Sub Connect(ByVal con As Connection)
   If con = Connection.SQLServer Then

   Else

   End If
End Sub