念のため下記コードを追加しておいて下さい。それとVBのバージョンは間違いなく 6.0(SP5) ですよね。 Next lngCount '追加の部分 .Execute , "close" Do While .StillExecuting = True DoEvents Loop End With