[ahmedabdelaliem]

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

اخي الكريم جرب الاتصال هكذا

[

إقتباس :Public Sub open_data_base()
If Cn.State > 0 Then Exit Sub
With Cn 'Connection
.ConnectionTimeout = 30
.ConnectionString = "provider = SQLOLEDB.1;user ID = sa ;password = ;"
Cn = Cn & "Initial Catalog =Database;" & "data source =ServerIP"
.Open
End With
End Sub

بالتوفيق