O código adiciona uma nova linha ao final do rs2 conjunto de registros. Em seguida, ele chama .MoveNext , que posiciona o conjunto de registros em .EOF . Portanto, o Loop condição é então True , o que significa que não faz loop.

Parece que você tem outro conjunto de registros, rs . Talvez seja esse que você deve percorrer em vez de rs2 .