vb导出到Excel,导出一次后，务必重新启动程序才能再执行，为什么

vb导出到Excel,导出一次后，必须重新启动程序才能再执行，为什么？
     For i = 1 To Adodc1.Recordset.RecordCount 
    For j = 1 To Adodc1.Recordset.Fields.Count
     mysheet.Cells(i , j ) = Adodc1.Recordset.Fields.Item(j ).Value
      Next j
     Adodc1.Recordset.MoveNext
      Next i
     myexcel.Visible = True
以上代码可以正确执行，可是导入一次后，就不行了，关闭程序，在运行则可以，请问为什么，怎么改呢，谢谢
------解决方案--------------------
with  Adodc1.Recordset
if .recordcount>0 then
.movefirst
For i = 1 To .RecordCount  
  For j = 1 To Adodc1.Recordset.Fields.Count
  mysheet.Cells(i , j ) =  .Fields.Item(j ).Value
  Next j
  .MoveNext
  Next i
  myexcel.Visible = True
end if
end with