اشکال در خواندن اطلاعات ازsql

[leilast]

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

(http://www.barnamenevis.org/forum/C#%E2%80%8Eode)
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.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

(http://www.barnamenevis.org/forum/C#%E2%80%8Eode)