[أبو عقيل]

استخدم هذه الجملة في الاتصال اسم السيرفر \s2008
قاعدة البيانات LAB


Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset



con.Open "Driver=SQL Server;Server=.\s2008;Database=LAB;uid=sa;pwd=711406;"

rs.Open "Select * from Admin where Name='" & Text1.Text & "' ", con, adOpenStatic, adLockReadOnly

---

بالنسبة للاعدادات 
هذه صورها