Do while not rst.EOF
      rst1.MoveFirst
         Do while not rst1.EOF
              #blah blah
         Loop
      rst.MoveNext
Loop