El error esta en:
El ciclo se va ejecutar mientra la condición sea verdadera, por lo tanto nunca va entrar al cilco porque rs.eof es falsa, aún no esta en fin de archivo.
Escribe la condición de esta forma:
Te sugieros que cambien el Do Until por Do While ... Loop.
Saludes.