Select a
Use Table1 order Field1

Select b
Use Table2 order 0

seek(Table2.Field,"Table1","Field1")

DO WHILE .T.
      ME.Work()
ENDDO