فشل في الاتصال بـ sql server

[WAM3000 1]

قمت بتصميم برنامج بفيجوال بيزيك 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 واستمر في الاكسيس الذي أعرفه !!