รบกวนผู้รู้ช่วยผมด้วยครับเกี่ยวกับ vb โปรแกรมซื้อขายเครื่องใช้ไฟฟ้าครับ

Sub CH_Serial_No()
        Dim xx As Boolean = False
        Try


            Dim c_row As Integer = 0
            Dim i As Integer
            Dim add As Double = 0

            Dim sql As String = ""
            Dim conn2 As New SqlConnection _
                  (M_ConnStr.strConn)
            Dim Command_Adp2 As SqlCommand
            Dim Sql_Reader As SqlDataReader
            sql = "SELECT *  FROM tv_Bill where   Serial_No = '" & TextBox13.Text & "'    "
            conn2.Open()
            Command_Adp2 = New SqlCommand(sql, conn2)
            Sql_Reader = Command_Adp2.ExecuteReader()
            If Sql_Reader.Read() Then
                If Sql_Reader.Item("Pro_name").ToString() <> "" Then
                    Sql_Reader.Item("Pro_name").ToString()
                    TextBox12.Text = Sql_Reader.Item("Brand_name").ToString()
                    txt_Name_pro.Text = Sql_Reader.Item("Pro_name").ToString()
                    TextBox9.Text = Sql_Reader.Item("Date_Month").ToString()
                    DateTimePicker1.Visible = True
                    DateTimePicker2.Visible = True

                    DateTimePicker1.Value = CDate(Sql_Reader.Item("OderCus_ProDate").ToString())
                    DateTimePicker2.Value = CDate(Sql_Reader.Item("Date_Expire").ToString())    อยู่ๆก็ ("Date_Expire") ผิดอันนี้แน่ๆครับ


                    If DateTimePicker2.Value < Date.Now Then
                        TextBox5.Text = "สินค้าหมดประกัน"
                    Else
                        TextBox5.Text = "สินค้ามีประกัน"
                    End If

                    TextBox4.Text = DateTimePicker1.Text
                    TextBox11.Text = DateTimePicker2.Text

                    ' Label16.Text = Sql_Reader.Item("ID_Trans").ToString()

                    DateTimePicker1.Visible = False
                    DateTimePicker2.Visible = False

                Else

                    MessageBox.Show("ไม่พบ Serial_No ")
                    TextBox12.Text = ""
                    txt_Name_pro.Text = ""

                    TextBox2.Text = ""
                    TextBox7.Text = ""
                    TextBox4.Text = ""
                    TextBox11.Text = ""
                    TextBox9.Text = ""
                    TextBox5.Text = ""
                    TextBox13.Focus()

                End If
            Else
                MessageBox.Show("ไม่พบ Serial_No ")
                TextBox12.Text = ""
                txt_Name_pro.Text = ""

                TextBox2.Text = ""
                TextBox7.Text = ""
                TextBox4.Text = ""
                TextBox11.Text = ""
                TextBox9.Text = ""
                TextBox5.Text = ""
                TextBox13.Focus()
            End If



        Catch
            MessageBox.Show(Err.Description, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        M_ConnStr.c_TMP1 = ""
        M_ConnStr.c_TMP2 = ""
        frm_Search_CUS.ShowDialog()

        '   TextBox2.Text = M_ConnStr.c_TMP0
        TextBox1.Text = M_ConnStr.c_TMP1
        TextBox3.Text = M_ConnStr.c_TMP2

    End Sub