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