Visual Basic - Ayudarme no encuentro el error

Hola a todos os envio el codigo en el cual me he esta dando siempre
el mismo error y yo no lo pido, El error que me da es:

Error '-2147217900 (800e14)' en tiempo de ejecucion
Error de sintasis en la instruccion UPDATE

Llevo 1 hora y no encuentro cual es el problema.

Muchas Gracias

If (txtFields(9).Text = "") Then
sql = "UPDATE FROM COMERCIAL SET CIF=" & txtFields(1).Text & ",LETRA='" & UCase(txtFields(14).Text) & "',ACTIVIDAD='" & _
cbCombo(0).Text & "',TIPOVIA='" & cbCombo(1).Text & "',DIRECCION='" & UCase(txtFields(7).Text) & "',CP='" & txtFields(4).Text & _
"',POBLACION='" & txtFields(16).Text & "',PROVINCIA='" & txtFields(17).Text & "',PAIS='" & txtFields(15).Text & "',TEL1=" & _
txtFields(19).Text & ",TEL2=" & txtFields(20).Text & ",FAX=" & txtFields(11).Text & ",HTTP='" & txtFields(13).Text & "',CONTACTO1='" & UCase(txtFields(2).Text) & "',EMAIL1='" & txtFields(8).Text & "',CONTACTO2='" & UCase(txtFields(3).Text) & "',EMAIL2='" & txtFields(9).Text & "',CUMPLEANOS1='" & _
txtFields(5).Text & "',CUMPLEANOS2='" & txtFields(6).Text & "',FELNAVIDAD='" & cbCombo(2).Text & "',REGALO='" & cbCombo(3).Text & "' where EMPRESA='" & txtFields(10).Text & "'"
MsgBox sql
db.Execute sql
...
End If

Es algo sencillo quitale el "FROM" y listo te quedaría:
If (txtFields(9).Text = "") Then
sql = "UPDATE COMERCIAL SET CIF=" & txtFields(1).Text & ",LETRA='" & UCase(txtFields(14).Text) & "',ACTIVIDAD='" & _
cbCombo(0).Text & "',TIPOVIA='" & cbCombo(1).Text & "',DIRECCION='" & UCase(txtFields(7).Text) & "',CP='" & txtFields(4).Text & _
"',POBLACION='" & txtFields(16).Text & "',PROVINCIA='" & txtFields(17).Text & "',PAIS='" & txtFields(15).Text & "',TEL1=" & _
txtFields(19).Text & ",TEL2=" & txtFields(20).Text & ",FAX=" & txtFields(11).Text & ",HTTP='" & txtFields(13).Text & "',CONTACTO1='" & UCase(txtFields(2).Text) & "',EMAIL1='" & txtFields(8).Text & "',CONTACTO2='" & UCase(txtFields(3).Text) & "',EMAIL2='" & txtFields(9).Text & "',CUMPLEANOS1='" & _
txtFields(5).Text & "',CUMPLEANOS2='" & txtFields(6).Text & "',FELNAVIDAD='" & cbCombo(2).Text & "',REGALO='" & cbCombo(3).Text & "' where EMPRESA='" & txtFields(10).Text & "'"
MsgBox sql
db.Execute sql
...
End If