SQLデータベースを使用してアイテムを削除

    Imports System.Data.OleDb
    ・・・
    Public Sub ItemRemove(ByVal IllDoc As Illustrator.Document) 'タイトルと罫線を削除する

        If Form1.Cn.State = ConnectionState.Closed Then Form1.Cn.Open() 'データベースに接続
        Dim delCom As OleDbCommand = Form1.Cn.CreateCommand 'データベース削除用

        'テキストの処理
        Dim tttCom As OleDbCommand = Form1.Cn.CreateCommand
        tttCom.CommandText = "SELECT [key], ID, [TOP] FROM TEXTTABLE WHERE ([TOP] > 810)" '位置が810ptより上のテキストは全て削除する
        Dim ttt As OleDb.OleDbDataReader = tttCom.ExecuteReader()
        While ttt.Read
            IllDoc.TextArtItems.Remove(IllDoc.TextArtItems(ttt("ID"))) 'ドキュメントのテキストを削除
            delCom.CommandText = "DELETE FROM TEXTTABLE WHERE [key]= " & ttt("key") 'データベースのテキストを削除
            delCom.ExecuteNonQuery()
        End While
        ttt.Close()

        'パスアイテムの処理・・・太さが1.8pt以上、幅が1000pt以上、位置が780pt以上のパスアイテムは全て削除する
        tttCom.CommandText = "SELECT [key], ID, [TOP], WIDTH, STROKEWIDTH FROM PATHITEMS WHERE (STROKEWIDTH > 1.8) AND (WIDTH > 1000) AND ([TOP] > 780)"
        ttt = tttCom.ExecuteReader()
        While ttt.Read
            IllDoc.PathItems.Remove(IllDoc.PathItems(ttt("ID"))) 'ドキュメントのパスアイテムを削除
            delCom.CommandText = "DELETE FROM PATHITEMS WHERE [key]= " & ttt("key")
            delCom.ExecuteNonQuery() 'データベースのパスアイテムを削除
        End While
        ttt.Close()

    End Sub