ايران ويج

سلام دوستان
من برای خواندن اطلاعات از sql به vb هز کد زیر استفاده میکنم ولی اجرا نمیشه و خطا هم نمیده
میشه کمکم کنید؟

کد: 
Set con = New ADODB.Connection

Set info = New ADODB.Recordset

con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"

strsql = "select name,family,id,paye,class from info where id = '" & Text3.Text & "'"

info.CursorLocation = adUseClient

info.CursorType = adOpenDynamic

info.Open strsql, con, adOpenKeyset, adLockOptimistic, adCmdText

While Not (info.EOF) And Not (info.BOF)

 Text1.Text = info.Fields("name")

 Text2.Text = info.Fields("family")

 Text4.Text = info.Fields("paye")

 Text5.Text = info.Fields("class")

 info.MoveNext

Wend

End Sub

اگر شما خودتون از کد دیگه ای استفاده میکنید لطفا اینجا بذارید تا اونم امتحان کنم
ممنون

يك بار تريس (trace) كن شايد متوجه بشي مشكل چيه

leilast

relax_cp