Ayuda con Update. Actualizar 2 campos.

Estimado. Tengo problemas con este código. No sé como hacer para actualizar dos campos en la misma sentencia:

Cantidad y Disponible son dos campos de la tabla StockMateriales.

Esta es la línea:

Base.Execute "Update StockMateriales SET Cantidad = Cantidad + '" & txtGestionPrestamo(3).Text & "','" & disponible = '" disponible"' + & txtGestionPrestamo(3).Text & " & " Where CodMaterial = '" & txtGestionPrestamo(0).Text & "'"

Bueno amigo. Muchas gracias como siempre!