Programa Utilizando Access VB.NET

[R3Z]

Saludos  Tengo un problemita no puedo resolver  cada vez  que modifico algo en la base de datos me dice

Código (vbnet) [Seleccionar] Expandir

Syntax error (missing operator) in query expression '' Productos Lacteos'  WhereIdProducto=Val(1)'.

Intente ponerle cochetes pero todavia sale el error  creo que el error es categoria pero no se como

Código (vbnet) [Seleccionar] Expandir

PrivateSubBtnGuardar_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesBtnGuardar.Click
IfTxtIdProducto.Text = ""Then
'Agrego un registro nuevo
           Almacenar("Insertinto Productos (Nombre, Cantidad, Precio, IdProveedor, Categoria) values ('" + TxtNombre.Text + "','" + MtbCantidad.Text + "', '" + MtbPrecio.Text + "', '" + MtbIdProveedor.Text + "','" + TxtCategoría.Text + "')")
Else
'Modifico un registro existente
           Almacenar("Update Productos set  Nombre='" + TxtNombre.Text + "', Cantidad='" + MtbCantidad.Text + "', Precio='" + MtbPrecio.Text + "', IdProveedor='" + MtbIdProveedor.Text + "',Categoria='" + TxtCategoría.Text + "' whereIdProducto=val(" + TxtIdProducto.Text + ")")
EndIf
RefrescarDatos()