VB6からSQLServer7に加工したデータを、正常に追加できません。なぜ？
VB6から、SQLServerに対して
加工したデータを追加するプログラムをしています。
（環境：Windows2000 Pro + VB6[SP5] + SQLServer[7.0]）
一度、「sampletable」のデータを全件削除した上で、
必ず２回以上実行するループ処理の中で、Insert文を発行しています。
がしかし、プログラム実行後にSQLServerのデータベースを検索してみると、
何故か、最後に実行したInsert文しか、正常に実行終了していないようなのです。
（最後のループ処理でInsertされたデータしか、追加されてないのです。）
何か、プログラム上で、おかしいところとか
抜けているところとかございましたら、教えて下さい。
＜サンプルプログラム＞
' SQL Server へ接続
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;" & _
"Data Source=(localhost);" & _
"Initial Catalog=database", "login", "passwd"
' 一度、テーブルデータを削除する
strSQL = "delete from sampletable"
Set rs = cn.Execute(strSQL)
Do 'このループ処理は、２回以上、必ず動作します。
・・・
(データ加工処理)
・・・
' データを追加する
strSQL = "INSERT INTO sampletable(xxx, xxx, xxx) " & _
"VALUES('" + HENSUU-A + "','" + HENSUU-B + "','" + HENSUU-C + "')"
Set rs = cn.Execute(strSQL)
Loop
' SQL Server 接続を閉じる
cn.Close
お礼
アドバイスのとおり調べたところ解決できました ありがとうございました