خواندن اطلاعات از sql نمایش در فرم

[leilast]

سلام دوستان
من برای خواندن اطلاعات از 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

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

[relax_cp]

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