Создать цикл, удаляющий строки в таблице БД

    Private Sub Button1_Click() Handles Button1.Click
        Dim SW As New Stopwatch
        SW.Start()
 
        Dim sqConnection As New SQLiteConnection("Data Source=" & My.Computer.FileSystem.SpecialDirectories.Desktop & "\my_SQLite_DB.sqlite")
        sqConnection.Open()
 
        Dim sqCommand As New SQLiteCommand()
        sqCommand.Connection = sqConnection
        Dim myTrans As SQLiteTransaction
 
        myTrans = sqConnection.BeginTransaction()
        sqCommand.Transaction = myTrans
 
        Try
            sqCommand.CommandText = "CREATE TABLE 'Dept2' ('id' INTEGER PRIMARY KEY AUTOINCREMENT, 'rand' TEXT);"
            sqCommand.ExecuteNonQuery()
 
            For i = 1 To 10000
                sqCommand.CommandText = "INSERT INTO 'Dept2' ('rand') Values ('LTpDtB800u738ND6Ujgq');"
                sqCommand.ExecuteNonQuery()
 
            Next
            myTrans.Commit()
 
        Catch e As Exception
            myTrans.Rollback()
        Finally
            sqConnection.Close()
        End Try
 
        SW.Stop()
        MsgBox(SW.Elapsed.Seconds & "." & SW.ElapsedMilliseconds & " sec.")
 
    End Sub