'Create the Medication Reminder Table Here
txt="CREATE TABLE IF NOT EXISTS MyMeds (Serial INTEGER PRIMARY KEY AUTOINCREMENT, Medication TEXT, Acute TEXT, Frequency INTEGER, Tablets INTEGER, TabsRemain INTEGER, StartOn TEXT, StartAt TEXT, RemindOn TEXT, Status TEXT)"
SQL1.ExecNonQuery(txt)
Dim ret as Int
ret = SQL1.ExecQuerySingleResult("SELECT count(*) FROM MyMeds")
If ret <= 0 then
msgbox("Table Exists BUT is Empty","Rec Count")
ELSE
msgbox("Table has "&ret" records in it","Rec Count")
End If