Imports System.Data.SQLite

Module Module1

    Sub Main()

        Using con As New SQLiteConnection("Data Source='d:\base.db';foreign keys=true")

            con.Open()
            Dim cmd = con.CreateCommand()

            cmd.CommandText = "select sqlite_version()"
            Console.WriteLine($"SQLite version: {cmd.ExecuteScalar()}")
            Console.WriteLine($"CommandTimeout = {cmd.CommandTimeout}")
            Console.WriteLine($"ConnectionTimeout = {con.ConnectionTimeout}")
            Console.WriteLine($"BusyTimeout = {con.BusyTimeout}")

            cmd.CommandText = "create table if not exists t1(num Integer, ondate datetime)"
            cmd.ExecuteNonQuery()

            Console.WriteLine("Открываем транзакцию")
            cmd.CommandText = "begin transaction"
            cmd.ExecuteNonQuery()

            cmd.CommandText = "insert into t1 values(@num, @ondate)"
            cmd.Parameters.Add("@num", DbType.Int32)
            cmd.Parameters.Add("@ondate", DbType.DateTime)

            For I = 1 To 600
                cmd.Parameters.Item("@num").Value = I
                cmd.Parameters.Item("@ondate").Value = Now()
                cmd.ExecuteNonQuery()

                Console.WriteLine($"Добавили запись #{I} и ждём 1 секунду")
                Threading.Thread.Sleep(1000)
            Next

            cmd.CommandText = "commit"
            cmd.ExecuteNonQuery()
        End Using
    End Sub

End Module

Пакет из Nuget System.Data.SQLite: 1.0.111.0
SQLite version: 3.28.0
CommandTimeout = 30
ConnectionTimeout = 15
BusyTimeout = 0