Right now I'm using the below code. I would prefer for edtIn and edtOut to be labels instead of edit text. Labels do not work with InputType. I'm trying to find something that does.
If FirstTime Then
SQL.Initialize(File.DirInternal, "vet.db", True)
End If
Activity.LoadLayout("Veteran")
pnl1.Visible = True
pnl2.Visible = False
Dim m As Map
m.Initialize
m.Put("ID", DBUtils.DB_TEXT)
m.Put("Event", DBUtils.DB_TEXT)
m.Put("First", DBUtils.DB_TEXT)
m.Put("Last", DBUtils.DB_TEXT)
m.Put("Rank", DBUtils.DB_TEXT)
m.Put("CheckIn", DBUtils.DB_TEXT)
m.Put("CheckOut", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL, "Vet", m, "ID")
edtEvent.InputType = edtEvent.INPUT_TYPE_TEXT
edtFirst.InputType = edtFirst.INPUT_TYPE_NONE
edtLast.InputType = edtLast.INPUT_TYPE_NONE
edtRank.InputType = edtRank.INPUT_TYPE_NONE
edtIn.InputType = edtIn.INPUT_TYPE_TEXT
edtOut.InputType = edtOut.INPUT_TYPE_TEXT