[المستكاوي]

شكرا لك اخى العزيز ولاكن الكود لم يعمل  يوجد خطأ في 
 
Dim cmd = New SqlCommand("select * from all_employees where emp ='" & TextBox6.Text", con)

Dim adapter = New SqlDataAdapter(cmd)

لوتكرمت عليا وأكملت باقي الكود  اكون لك من الشاكرين