Android Question I have a problem with SQLite that fails when inserting a large number of records into a table. Please Help.

Sub Button1_Click
    
    Dim SQL2 As SQL
    SQL2.Initialize(DBFileDir,DBFileName,True)

    Log("0")
    Msgbox("0","")
    SQL2.ExecNonQuery("Delete From masclis")
    Log("1")
    Msgbox("1","")
    For wI=0 To 30000
        SQL2.AddNonQueryToBatch("Insert Into masclis (codigo,nombre,nif,direccion,otro) Values ('123ED','','','','')",Null)
    Next
    Dim SenderFilter As Object = SQL2.ExecNonQueryBatch("SQL")
    Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
    Log("NonQuery: " & Success)
    Msgbox("2","")
    Log("2")
            
    SQL2.Close
    
End Sub

Sub Button1_Click
   
    Dim SQL2 As SQL
    SQL2.Initialize(DBFileDir,DBFileName,True)

    Log("0")
    Msgbox("0","")
    SQL2.ExecNonQuery("Delete From masclis")
    Log("1")
    Msgbox("1","")
   
    SQL2.BeginTransaction
    Try
        For wI=0 To 30000
            SQL2.ExecNonQuery("Insert Into masclis (codigo,nombre,nif,direccion,otro) Values ('123ED','','','','')")
        Next
        SQL2.TransactionSuccessful
    Catch
        Log(LastException.Message)
    End Try
   
    SQL2.EndTransaction

    Msgbox("2","")
    Log("2")
           
    SQL2.Close
   
End Sub

SQL2.AddNonQueryToBatch("Insert Into masclis (codigo,nombre,nif,direccion,otro) Values ('123ED','','','','')",Null)

SQL2.AddNonQueryToBatch("Insert Into masclis (codigo,nombre,nif,direccion,otro) Values (?,?,?,?,?)", Array As String("123ED","","","",""))