ربط الاكسيس مع sql server

هذه دالة خالة بالاتصال عن طريق الاكسس أرجو أن تعجبك :

Public Sub ConnectionDB()
Dim strConnect  As String   
Dim strServer   As String	 
Dim strLogin	As String	 

strServer = "Boyosef"

strLogin = "user id='sa';password=''"	  

strConnect = "Provider=SQLOLEDB.1;Data Source=" & strServer & ";Initial	Catalog='EnglishBid';" & strLogin

Application.CurrentProject.OpenConnection strConnect  

End Sub