getting syntax error in update statement

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\MAC\Documents\132.mdb")

    Dim cmd As New OleDbCommand
    con.Open()
    cmd.Connection = con

    Dim sql As StringBuilder = New StringBuilder("UPDATE netcash SET ")
    sql.Append("[Account Holder Name] = ?, Bank Name= ?, ")
    sql.Append("[Account Type] = ?, [Account Number] = ?,")
    sql.Append("[Branch Code]=?,[Gross Salary]=?,")
    sql.Append("[Nett Salary]=?,[Spouse Gross]=?,")
    sql.Append("[Spouse Nett]=?,[Total Income]=?,")
    sql.Append("[Funeral Cover]=?,[Medical Aid]=?,")
    sql.Append("[Life Insurance]=?,[Groceries]=?,")
    sql.Append("[Rent/Bond]=?,[School fees]=?,")
    sql.Append("[Transport]=?,[Clothing]=?,")
    sql.Append("[Domestic Worker]=?,[Water and Electricity]=?,")
    sql.Append("[Rates]=?,[Landline Phone]=?,")
    sql.Append("[Cell phone]=?,[Levies]=?,")
    sql.Append("[Bank Charges]=?,[Medical Expenses]=?,")
    sql.Append("[Maintenance]=?,[Total Expenses]=?")
    sql.Append(" WHERE [ID Number]=?")

    cmd.CommandText = sql.ToString()

    'NB with unnamed parameters the order below is fundamental
    cmd.Parameters.AddWithValue("AHName", txtaccHName.Text)
    cmd.Parameters.AddWithValue("BankName", txtBName.Text)
    cmd.Parameters.AddWithValue("AccType", txtAccType.Text)
    cmd.Parameters.AddWithValue("AccNumber", txtAccNo.Text)
    cmd.Parameters.AddWithValue("Branch", txtBranchCode.Text)
    cmd.Parameters.AddWithValue("GrossSalary", txtGrossS.Text)
    cmd.Parameters.AddWithValue("NettSalary", txtNettS.Text)
    cmd.Parameters.AddWithValue("SpouseGross", txtSpouseG.Text)
    cmd.Parameters.AddWithValue("SpouseNett", txtSpouseN.Text)
    cmd.Parameters.AddWithValue("TotalIncome", txtTIncome.Text)
    cmd.Parameters.AddWithValue("FuneralCover", cmbfuneral.Text)
    cmd.Parameters.AddWithValue("MedicalAid", cmbmedical.Text)
    cmd.Parameters.AddWithValue("LifeInsurance", cmbinsurance.Text)
    cmd.Parameters.AddWithValue("Groceries", txtGroceries.Text)
    cmd.Parameters.AddWithValue("RentBond", txtRent.Text)
    cmd.Parameters.AddWithValue("Schoolfees", txtSfees.Text)
    cmd.Parameters.AddWithValue("Transport", txtTransport.Text)
    cmd.Parameters.AddWithValue("Clothing", txtClothing.Text)
    cmd.Parameters.AddWithValue("DomesticWorker", txtDomesticW.Text)
    cmd.Parameters.AddWithValue("WaterElect", txtWandE.Text)
    cmd.Parameters.AddWithValue("Rates", txtRates.Text)
    cmd.Parameters.AddWithValue("Landline", txtLandline.Text)
    cmd.Parameters.AddWithValue("Cellphone", txtCellphone.Text)
    cmd.Parameters.AddWithValue("Levies", txtLevies.Text)
    cmd.Parameters.AddWithValue("BankCharges", txtBCharges.Text)
    cmd.Parameters.AddWithValue("Medical", txtMedical.Text)
    cmd.Parameters.AddWithValue("Maintenance", txtMaintenance.Text)
    cmd.Parameters.AddWithValue("TotalExpenses", txtTexpenses.Text)
    cmd.Parameters.AddWithValue("IDNumber", txtvalueid.Tag)

    If cmd.ExecuteNonQuery() > 0 Then
        MsgBox("Record Updated Successfully")
    End If

End Sub