Error de Sintaxis en Visual.Net

[girithdacil]

Amigos
Recurro a ustedes, ya que no he encontrado informacion que pueda aclararme un pequeño problema que me está presentando Visual.net.

Es el Siguiente:
He creado un mantenedor, con el fin de grabar o actualizar un dato dentro de una tabla especifica, el problema es que al momento de presionar grabar ejecuta el procedimiento y me manda un error "Sintaxis incorrecta cerca de la palabra clave Where"
he revisado todo el fuente y no encuentro el problema, el codigo en donde arroja el error es el siguiente:

Public Sub Actualizar(ByVal Id_Empresa As String, ByVal Rut_Empresa As String, ByVal Nombre_Empresa As String, ByVal Direccion_Empresa As String, ByVal Comuna_Empresa As String, ByVal Telefono_Empresa As String, ByVal Usuario_Contacto As String, ByVal Telefono_Usuario As String, ByVal conexion As String)
Try
Dim conn As New SqlConnection(conexion)
Dim cmd As SqlCommand
Dim SqlBuilder As New System.Text.StringBuilder
With SqlBuilder
.Append("UPDATE Empresa SET ")
.Append("Rut_Empresa='" & Rut_Empresa & "', ")
.Append("Nombre_Empresa='" & Nombre_Empresa & "', ")
.Append("Direccion_Empresa='" & Direccion_Empresa & "', ")
.Append("Comuna_Empresa='" & Comuna_Empresa & "', ")
.Append("Telefono_Empresa='" & Telefono_Empresa & "', ")
.Append("Usuario_Contacto='" & Usuario_Contacto & "', ")
.Append("Telefono_Usuario='" & Telefono_Usuario & "', ")
.Append("WHERE IdEmpresa='" & Id_Empresa & "'")

End With
conn = New SqlConnection(conexion)
conn.Open()
cmd = New SqlCommand(SqlBuilder.ToString, conn)
cmd.ExecuteNonQuery()
conn.Close()
cmd.Dispose()
conn.Dispose()
Catch err As SqlException
Throw err
Catch err As Exception
Throw err
End Try
End Sub

todos los campos en la tabla estan como "varchar" ya no se me ocurre que puede ser, soy nuevo en esto.

Saludos
Giri