あっきぃです。

Tips程度でよろしければ下記の方法があります。

> 追加だと
> for llp=1 to 10000
>   adoCn.Execute "INSERT INTO TEST VALUES('1','1',.......'1' )"
> next llp
llpはlong型ですか?　VBはlong型が一番パフォーマンスがでるみたいです。
また、毎回 adoCn.Execute を呼ぶのではなくて、
with adoCn
  for llp=1 to 10000
    .Execute "Insert〜〜
  next
end with
という風に with コマンドを使用するだけでだいぶパフォーマンスがかわります。
特にループ処理は効果が現れやすいかと。

あと、Execute を毎回毎回行うのではなくて、セミコロンで複数のSQL分を接続
してSQLを投入するのも良いかもしれません。
ADOが遅いという可能性もありますから。なるべくSQL Server とVBは通信させな
いようにして、一度にSQLをサーバに投入するのが効き目あると思います。

お役に立てるかどうか解りませんが…