แก้โค้ดให้หน่อยค่ะ ASP.Net ปุ่ม ADD ค่ะมันเพิ่มข้อมูลในฐานข้อมูลไม่ได้เลยค่ะ

Private Sub add_BTN_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_BTN_add.Click

        Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
        Dim cm As New SqlCommand
        Dim Conn As New SqlConnection


        sqlADD = "INSERT INTO Table_Regist(System_No,Repair_Request_Date,Hospital_Name,Model,Serial_No)"
        sqlADD &= "VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        'ใช้ oledbcommand ในการเพิ่มข้อมูล
        If MessageBox.Show("คุณต้องการเพิ่มรายชื่อใหม่ใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then


            With cm
                .CommandType = CommandType.Text
                .CommandText = sqlADD
                .Connection = Conn
               .ExecuteNonQuery() 

            End With
            MessageBox.Show("เพิ่มรายชื่อพนักงานแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
        End If

        Conn.Close()

    End Sub
End Class