[مصمم هاوي]

السلام عليكم ورحمـة الله وبركاتـه
لدى مثال صغير من برمجـة الأستاذ الكبير - الحاضر الغائب - أحمد منصـور جزاهُ الله كلّ خير لنسخ واستعادة قاعدة بيانات SQL
ولكن لم أستطع حقيقةً أن استخدمه في مشروعـي، والمطلــوب:
هل يمكن التعديـل على هذا المثال ليتلاءم مع مشروعـي
اســم السيرفر : OMRAN
اسـم قاعـدة البيانات : library
جملـة الاتصـال :

كود :

Public Sub Connect_DataBase()
On Error Resume Next
' ==================
If cn.State = 1 Then cn.Close
On Error GoTo erorr
cn.Open "Provider=SQLOLEDB.1;Integrated SECURITY=SSPI;Persist SECURITY Info=False;Initial Catalog=library  ;Data Source=" & ServerName
activation = True
Exit Sub
erorr:
MsgBox "خطاء في اسم بالسيرفر", , "بيانات السيرفر"
activation = False
  Exit Sub

End Sub