ช่วยเขียนโค้ดค้นหาสมาชิกให้ด้วยครับ ใช้ VisualBasic2008 ครับ ใกล้จะส่งแล้ว

btnsearch event click

conn.open

strsql = select [p_id],[p_name],[p_email],[p_address],[p_province],[p_tel] from tb_profile where [p_id] = txtsearch

dim dr as sqldataReader

dim cmd as sqlcommand

cmd = New SqlCommand(strsql, Conn)

dr = cmd.ExecuteReader()

if dr.read then

txtname.text = dr.getvalue(1).tostring
txtemil.text =dr.getvalue(2).tostring
txtaddress.text =dr.getvalue(3).tostring
txtprovince.text=dr.getvalue(4).tostring
txttel.text=dr.getvalue(5).tostring
else
MsgBox("ไม่พบข้อมูล",16,"ไม่พบข้อมูล")
end if

conn.close