combine update and select statement in vb6 ado

[catharinus]

Hello my friends
I have a query that updates a column in TABELR.
The query collects selected data from TABELB where TABELB.Reken=
TABELR.Reken.

Because I do'n't know how to combine an update statement in a select
statement, I simply walk throuth the recorsset by moving from record
to the follwowing record:
Set mrsttest4 = conConnection.Execute("Select * from TABELR order by
reken")

do while mrst4.Eof = false
figure=conconnection.executte("Select bedrag from TABELB where....")
conconnection.execute(update TABELB.Bedrag = "& figure)
etc.
loop

But this is very slow, in fact too slow.

Any Idea?
Thanks
Catharinus