Error en sintaxis Update excel visual Basic

Disculpen tengo una aplicación echa en excel, la cual tiene un lisbox que trae una tabla de access al dar click en algún ítem se.presiona un botón que dice actualizar, abre un formulario c9n los datos a modificar en textboxes, y dentro de ese formulario tengo un botón modificar para que refleje los cambios en la tabla de la base de datos access, sin embargo me marca error de sintaxis que estaré haciendo mal este es mi código del botón modificar:

Public valorId

Private Sub CommandButton1_Click()
Dim Cons As ADODB.Connection
Dim MiConexion
Dim Rs As ADODB.Recordset
Dim MiBase As String
Dim Query As String
Dim i, j
Dim Cuenta As Integer
Dim Numero As Integer
Dim Empresa, ESTADO, MUNICIPIO, LICENCIA, REQUISITO, ESTATUS, ENCARGADO, OBSERVACIONES, FECHAINGRESO

MiBase = "BDDESPACHO.accdb"

Set Cons = New ADODB.Connection
MiConexion = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

With Cons
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open MiConexion
End With
Empresa = Me.TextBox2.Value
ESTADO = Me.TextBox3.Value
MUNICIPIO = Me.TextBox4.Value
LICENCIA = Me.TextBox5.Value
REQUISITO = Me.TextBox6.Value
ESTATUS = Me.TextBox7.Value
ENCARGADO = Me.TextBox8.Value
OBSERVACIONES = Me.TextBox9.Value
FECHAINGRESO = Me.TextBox10.Value

Query = "UPDATE NEGOCIOS SET EMPRESA = '" & Empresa & "', ESTADO = '" & ESTADO & "', MUNICIPIO = '" & MUNICIPIO & "', TIPO DE LICENCIA = '" & LICENCIA & "', REQUISITO = '" & REQUISITO & "', ESTATUS = '" & ESTATUS & "', ENCARGADO = '" & ENCARGADO & "', OBSERVACIONES = '" & OBSERVACIONES & "', FECHA INGRESO = #" & FECHAINGRESO & "# WHERE Id = " & valorId
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseServer
Rs.Open Source:=Query, _
ActiveConnection:=Cons

'Cerrar la conexión
Cons.Close
Set Rs = Nothing
Set Cons = Nothing

MsgBox "Registro actualizado", vbInformation, "fin"
Unload Me
End Sub