Microsoft ADODB 邊讀邊刪注意事項

用 ADODB 寫過轉檔程式的人應該都知道，寫在這兒備忘一下好了。

原本邊讀邊刪的部份應該是長這樣:

Dim rs As New ADODB.Recordset
:
Do Until rs.EOF
:
:
rs.Delete()
rs.MoveNext()
Loop

但是刪到最後一筆的時候，就會出現參照到已刪除資料列的問題，這時只要加上紅字部份就可以了。

Dim rs As New ADODB.Recordset
:
Do Until rs.EOF
:
:
rs.Delete()
If Not rs.EOF Then  rs.MoveNext()
Loop