VB6 and ADO Recordset

I have two identical tables A and B, the same fields etc. but table B is the smaller of the two. I want to write or transfer every record from table A to table B whose value in the field “Payment” is true.

I am trying to avoid field by field assignments. There are two hundred fields. Writing an entire record at one swoop in the do or while loop is
my wish.