قمت بتصميم برنامج بفيجوال بيزيك 6 ، وحاولت ربطه بقاعدة sql server وكتبت الأكواد التالية Dim cn As New ADODB.Connection Dim rh As New ADODB.Recordset Dim cn As ADODB.ConnectionSet cn = New Connection If cn.State = 1 Then cn.Close cn.ConnectionString = "Provider=SQLNCLI.1;Integrated Security=SSPI;" & _ "Persist Security Info=False;" & _ "AttachDBFileName=" & App.Path & "\walla.mdf;Data Source= wam\sqlexpress" '************************************************* **************** If rh.State = 1 Then rh.Close SQL2 = "select * from ast " rh.Open SQL2, cn, 1, 3 وعند تنفيذه تظهر لي الرسالة( لا يمكن الاتصال لتنفيذ هذه العملية .. نظراً لغلقه أو لعدم صلاحيته بهذا السياق) نأمل المساعدة اذا امكن .. قبل أن اترك sql server واستمر في الاكسيس الذي أعرفه !!