Visual Basic - ayuda con tabla

Hola quisiera saber como puedo hacer lo siguiente::
tengo cargado un flexgrid con nombres de producto y su cantidad. el problema es que no se como hacer para que me descuente la cantidad del stock actual que tengo en mi base de datos para ir modificando dicho campo de cada producto de mi tabla

mira lo que tenes que hacer es hacer un bucle con do while para saber si el producto primeramente existe en tu base de datos esto lo podes hacer comparando el codigo del producto en la venta con el codigo guardado, si lo encuentra entonces te moves a ese registro y luego obtener el valkor actual y lo restas con el del text box para despues actualizar tu tabla con update, pero ojo tenes que fijarque el tema de que no te quede negativo y que si no hay tal producto no te reste. bien avisame cualquier cosa para ver como te fue.

SAludos

hola. tengo un problema. no se como comparar el tetxbox que tengo idcliente con el de la tabla real. me podrias ayudar con eso.
esto es lo que hago
while i< tabla.recordcount
if textbox= (no se que) then
set tabla.datasource= tabla - cantidad
end if
i=i+1
wend

bien mira supongamos que la tabla clientes tiene un campo llamado idcliente,
este codigo es de ado pero manejado pura y exclusivamente por codigo por eso es que tendrias que tener el recordset definido con anterioridad
con "DIM RsCliente as new adodb.recordset"

bien con rscliente que es el recordset hacemos
"RSCLIENTE!IDCLIENTE"

osea tu codigo quedaria hace

while i< tabla.recordcount
if textbox= rscliente!idcliente then
set tabla.datasource= tabla - cantidad
end if
i=i+1
wend

espero te sirva cualquier cosa avisame

hola. disculpa. me podrias explicar que es eso de rs!idcliente.
no entiendo que es lo que hace. para que pones un signo ! que es lo que significa.
disculpa mi ignorancia. soy medio nuevo en el tema

mira disculpa la demora, pero si todavia te sirve te explico lo que pasa es que yo me conecto a la base de datos por codigo sin necesidad de un control
entonces el codigo es asi:

'Dimencionar variable de cadena de conexion
dim strConnection as string
'Dimencionar variable de comando
dim cmd as string
'Dimensionar variable de conexion
dim cnXX as new adodb.connection
'Dimensionar variable de recordset
dim rsXX as new adodb.recordset

'Sentencia de error por si hay un error para que te avise
on error goto ADODBError Events

'cadena de conexion
strconnection="Provider=Microsoft.jet.oledb.4.0;"
strconnection=strconnection & "Persist security info=false;"
strconnection=strconnection & "data source=Pones la ruta de tu base de datos;"
strconnection=strconnection & "Mode=readWrite"

'Luego abris la conexion
cnXX.connectionstring=strconnection
cnXX.connectiontimeout=10
cnxx.cursorlocation=adusenone
cnXX.opne

'Luego una vez abierto la conexion empecesa a buscar con el recordset
'primero le pedis que haga algo con select osea con comandos de sql ejemplo
'select * from producto elige todos los datos de la tabla productos"
rsXX.open "Select * from productos",cnXX,adopendynamic,adlockoptimistic,adcmdtetxt

'entonces ahi es donde usas el rsXX para el recordset y ! para especificar el campo y luego el nombre del campo ej

rsXX!Descripcion=boxproddesc.text

'Luego cerrar todo
set rsXX =nothing
set cnXX=Nothing

exit sub

ADODBErrorEvents:
msgbox & err.description

bien espero te haya serviso la explicacion
saludos