Dim MyRecs
Dim MaxRecs As Int =20
MyRecs=SQL1.ExecQuerySingleResult("SELECT count(*) FROM MyTable")
If MyRecs >= MaxRecs Then
SQL1.ExecNonQuery2("DELETE FROM MyTable WHERE ROWID>= ?", Array As Int (MyRecs)) 'every table has a built in ROWID
End If
SQL1.ExecNonQuery2("INSERT INTO MyTable VALUES (?,?,?)", Array As String("England","London","Manchester United"))