Save เพื่อทำการแก้ไขข้อมูล แต่ Save ไม่ได้มัน Error ช่วยหน่อย -*-

Private Sub Cmd_SAVE_EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_SAVE_EDIT.Click
        Dim sqlSave_Edit As String
        Try
            If txtName_Use.Text = "" Then
                MessageBox.Show("กรอกข้อมูลชื่อสถานที่ตั้งคอมพิวเตอร์ (ห้อง) !!!", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtName_Use.Focus()
                Exit Sub
            End If
            If MessageBox.Show("ต้องการแก้ไขข้อมูลชื่อสถานที่ตั้งคอมพิวเตอร์ (ห้อง) หรือไม่", "แจ้งให้ทราบ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                sqlSave_Edit = "UPDATE type_name"
                sqlSave_Edit &= " SET  Typename_ID = '" & txtTypename_ID.Text & "',"
                sqlSave_Edit &= " Typename_Ar = '" & CmbTypename_Articles.Text & "'"
                sqlSave_Edit &= " Name_Use = '" & txtName_Use.Text & "'"
                sqlSave_Edit &= " WHERE  Typename_ID ='" & txtTypename_ID.Text & "'"
                With DBSConn
                    .CommandType = CommandType.Text
                    .CommandText = sqlSave_Edit
                    .Connection = DBConn
                    .ExecuteNonQuery()
                    DBConn.Close()
                End With
                MessageBox.Show("แก้ไขข้อมูลชื่อสถานที่ตั้งคอมพิวเตอร์ (ห้อง)   เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                CallShow()           ' Function Call เรียกใช้งาน Table Loadtable Form Province
                Refresh()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cmd_ADD.Enabled = True : Cmd_SAVE_EDIT.Enabled = False
        Cmd_DELETE.Enabled = False : lblTypename_ID.Text = "000"
        txtTypename_ID.Text = "000" : CmbTypename_Articles.Text = ""
        txtName_Use.Text = ""
        Return
    End Sub