update the join table

[lyealain]

hi.. let say i have this statement

dim A, B

A = "select fa.partnumber, bom.GOD
from fa,bom
where fa.partnumber= bom.partnumber"

set B= conn.execute(A)

<input type=textbox name=1 value="&B.fields("partnumber")&">

<input type=textbox name=1 value="&B.fields("GOD")&">

How do i update this statement? with one click