Public Sub TestSQLite()
    Dim pConn As New ADODB.Connection
    Dim pRSet As New ADODB.Recordset, i As Long
    pConn.Mode = adModeShareDenyNone: pRSet.CursorLocation = adUseClient
    pRSet.CursorType = adOpenKeyset: pRSet.LockType = adLockPessimistic
    pConn.Open "Provider=MSDASQL.1;Driver=SQLite3 ODBC Driver;Database=c:\Projects\SQLite\maindb.db3;"
    pRSet.Open "Select * From main.MyTable", pConn
    For i = 100 To 200
        pRSet.AddNew
        pRSet(0).Value = i: pRSet(1).Value = "string" & CStr(i)
    Next i
    pRSet.Update
    pConn.Close
End Sub