Imports System
Imports System.IO
Imports System.Data.Sqlite
 
Modul Versuch
 
Sub Test()
 
Dim SQLConnStr As String = "DataSource = Verbindung zur DB"
Dim SQLConn As New SQLite.SQLiteConnection(SQLConnStr)
Dim SQLComm As New SOLite.SQLiteCommand("String", SQLConn)
Dim DA As New SQLite.SQLiteDataAdapter(SQLComm)
Dim DS As New DataSet, X As Integer
 
Dim iTime as New System.Diagnostics.Stopwatch
iTime.Start()
'*********
SQLConn.Open()
For X = 0 To 1000
SQLComm.CoammandText = "INSERT INTO TabTest VALUES ('abcdefghijklmnop'," & _
  "'wertzuiopasdfghjklö')"
SQLComm.ExecuteNonQuery()
Next
SQLConn.Close()
'*********
iTime.Stop()
MsgBox(iTime.ElapsedMilliseconds)
iTime.Reset()
 
End Sub
 
End Modul

'*********
SQLComm.CoammandText = "SELECT * FROM TabTest"
DA.Fill(DS)
 
Dim tbl as DataTable = DS.Tables(0)
Dim row as DataRow = tbl.NewRow()
For X = 0 To 1000
row(Spalte1) = "abcdefghijklmnop" & X
row(Spalte2) = "wertzuiopasdfghjklö"
tbl.Rows.Add()
Next
 
iTime.Stop()
MsgBox(iTime.ElapsedMilliseconds)
 
Dim Cmd As New SQLite.SQLiteCommandBuilder
DA.Update(DS)
'*********