أريد المساعدة في تحويل كود الإتصال من أكسس إلى Sql server 2008

السلام عليكم إخواني الكرام : لدي مشروع يعمل بقاعدة بيانات أكسس وأنا الآن أريد تحويل كود الربط إلى قاعدة بيانات Sql server 2008 علماً بأن إسم جهاز الكمبيوتر لدي : Server-PC وإسم قاعدة البيانات : KM3DB
وهذا هو الكود القديم الذي كنت أستخدمه في الربط بالأكسس :

Public Sub ConncData()
    If Cn.State = 1 Then Cn.Close
    Cn.CursorLocation = adUseClient
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    Cn.Open App.Path & "\KM3DB.mdb"
End Sub

وتقبلو خالص إحترامي وتقديري لكم ...