Vb6レコード更新エラー

このコードは、rs2の最後に新しい行を追加します レコードセット。次に、.MoveNextを呼び出します 、レコードセットを.EOFに配置します 。つまり、Loop その場合、条件はTrue 、つまりループしません。

別のレコードセットrsがあるようです 。おそらく、それはrs2の代わりにループする必要があるものです 。