بطأ شديد في تحديث قاعدة بيانات من نوع Sqlite

PHP كود :
Dim D As New DataSet
        D.Tables.Add("T").Columns.Add("Id")
        D.Tables("T").Columns.Add("Txt")
        Dim R As DataRow
        For x = 0 To 1000
            R = D.Tables("T").NewRow
            R.Item("Id") = x
            R.Item("Txt") = "هذا مجرد مثال"
            D.Tables("T").Rows.Add(R)
        Next
        Dim Cn As New SQLite.SQLiteConnection("Data Source=C:\Users\oop\Desktop\5\5.db")
        Cn.Open()
        Dim CMD As New SQLite.SQLiteCommand
        CMD.Connection = Cn
        CMD.CommandText = "Create Table TT(Id int,Txt Memo)"
        CMD.ExecuteNonQuery()
        Dim AD As New SQLite.SQLiteDataAdapter("Select * From TT", Cn)
        Dim B As New SQLite.SQLiteCommandBuilder(AD)
        AD.Update(D.Tables("T"))
        Cn.Close()