ดูโค้ดให้น่อยครับ มันติด Syntax error in update statement (มือใหม่หัดเขียน)

    Private Sub btEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEdit.Click
        If CatID.Text = "" Then
            MessageBox.Show("กรุณาป้อนรหัสลูกค้า", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit SubCode (VB.NET)
        End If
        If Catname.Text = "" Then
            MessageBox.Show("กรุณาป้อนชื่อ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If Catbrand.Text = "" Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If MessageBox.Show("คุณต้องการแก้ไขข้อมูลใช่หรือไม่???", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Try
                Dim sql As String = ""
                Stringbuilder.Remove(0, Stringbuilder.Length()) 'มันติดตรงไหนหาไม่เจอ ครับผม
                Stringbuilder.Append(" UPDATE CATEGORY")
                Stringbuilder.Append(" SET NameCategory = '" & Catname.Text & "',")
                Stringbuilder.Append(" BrandCategory = '" & Catbrand.Text & "',")
                Stringbuilder.Append(" WHERE (IDCategory = '" & CatID.Text & "')")
                sql = Stringbuilder.ToString
                Command = New OleDbCommand
                With CommandCode (VB.NET)

                    .CommandText = sql
                    .CommandType = CommandType.Text
                    .Connection = Connnection
                    .ExecuteNonQuery()
                End With
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ShowData()
            'ClearData()
        Else
            MessageBox.Show("ยกเลิกการแก้ไขข้อมูล", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub