مشكلة في قراءة البيانات اذا كان احد الحقول =null (يوجد صورة للخطأ)

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

كيف حالك إن شاء الله دائمــاً بخير ؟

استخدم هذا الكود في استعراض البيانات وماشي معي تمام لكن المشكلة اذا كان احد الحقول يحمل القيمه NULL يضهر الخطأ

صورة الخطأ بالمرفقات

حيث ان القاعدة Mysql

Dim Con As New MySqlConnection(constr)
        Con.Open()
        Dim cmd As New MySqlCommand()
        cmd.Connection = Con
        cmd.CommandText = "select * from health_medical where app_id  = '" + TB.Text + "'"
        Dim myreader As MySqlClient.MySqlDataReader
        myreader = cmd.ExecuteReader()
        myreader.Read()
        If myreader.HasRows Then
            Label1.Text = myreader("nameA")
            Label2.Text = myreader("id_no")
            Label3.Text = myreader("id_issue")
            TextBox5.Text = myreader("nat_id")
            TextBox4.Text = myreader("occupation_code")
            Label6.Text = myreader("id_dt")
            Label7.Text = myreader("job_place")
            Label8.Text = myreader("sponser")
            Label9.Text = myreader("sponser_address")
            Label10.Text = myreader("sponser_tel")
            Label11.Text = myreader("app_date")
            Image1.ImageUrl = myreader("imgpath")
        Else
            Label1.Text = ""
            Label2.Text = ""
            Label3.Text = ""
            TextBox5.Text = ""
            TextBox4.Text = ""
            Label6.Text = ""
            Label7.Text = ""
            Label8.Text = ""
            Label9.Text = ""
            Label10.Text = ""
            Label11.Text = ""
            Label12.Text = "هذا الطلب غير موجود"

        End If
    End Sub