[Rami_Mezo]

السلام عليكم و رحمة الله وبركاته

جهودكم مشكوره إن شاء الله

أريد لأن ال Conntion String  للكي أتصل بقاعدة البيانات SQL SERVER2005  ,r و قدت أنشأة قاعدة البيانات PCI وفيها الجداوال المطلوبه

وقد وضعت ال  Conntion String hgjhgd  وبعطيني خطأ ..الصورة مرفقة مع ال

أرجو المساعدة جزاكم الله كل خير
===========================================================================================================
Public Function GetConnection()

  Dim dbaseConn As ADODB.Connection

  On Error Resume Next
  
  Set dbaseConn = New ADODB.Connection
  dbaseConn.ConnectionTimeout = 10
  
  gstrServer = "RMAZRAAWI-PC"
  gstrDB = "PCI"

  Dim connstring As String
   
  connstring = "Provider=MSDASQL;DRIVER=Sql Server;Server=" & gstrServer & ";Database=" & gstrDB & ";UID=" & gstrUser & ";PWD=" & gstrPwd
  dbaseConn.Open connstring
  Form1.Show vbModal

  If Err Then Set con = Nothing
  Set GetConnection = dbaseConn
End Function

===========================================================================================================