ممكن تساعدونى

Dim dr As OleDbDataReader

cm.CommandText = ("select * from banqe where name='" & lst_names.SelectedItem & "'")

cm.Connection = cnn

dr = cm.ExecuteReader

Do While dr.Read

lb_idc.Text = dr("id")

txt_name1.Text = dr("name1")

txt_address1.Text = dr("addressa")

txt_name2.Text = dr("aname")

txt_address2.Text = dr("sddresss")

txt_many.Text = dr("many")

txt_total1.Text = dr("totala")

txt_total2.Text = dr("totals")

txt_ksts.Text = dr("ksts")

txt_cante1.Text = dr("cantea")

txt_cante2.Text = dr("cantes")

txt_date1.Text = dr("datea")

txt_date2.Text = dr("dates")

txt_date3.Text = dr("dated")

Loop

dr.Close()

وعند تشغيل البرنامج تظهر الرساله التاليه

no value given for one or more repuired parameters

ولكم جزيل الشكر