valeu galera

fiz o seguinte

 

xc = "UPDATE Estoque SET "
   xc = xc & "Quantidade = Quantidade +" GradeItens.TextMatrix(x, 4)
   xc = xc & " WHERE Produto = '" & GradeItens.TextMatrix(x, 1)
   xc = xc & "' AND Data > #" & TxtEntrada.Text & "#"
   banco.execute xc

 

problema resolvido, valeu a força

 

obrigado a todos

 

mineirop