اینم یه راه ساده است به امتحانش میارزه
ol_cn = New OleDbConnection(er)
ol_cn.Open()
ol_cm = New OleDbCommand("select * from "JADVAL" where id = RADIF ", ol_cn)
ol_da = New OleDbDataAdapter(ol_cm)
ds = New DataSet
ol_da.Fill(ds, "JADVAL")
dr = ol_cm.ExecuteReader
If dr.HasRows Then
While dr.Read
'************************************************* *********
'**
TextBox1.Text = (dr("fild1"))
TextBox2.Text = (dr("fild2 "))
' for all filds
TextBox3.Text = (dr("fild n "))
EndWhile
TextBox1.Focus()
EndIf
من از تکست باکس استفاده کردم شما می تونی براشون متغیر تعریف کنی