'---- * Setup Select
Dim SelectFrom As Int
Dim SelectTo As Int
Log("DateFromShow.Text = "&DateFromShow.Text)
Log("DateToShow.Text = "&DateToShow.Text)
SelectFrom = DateFromShow.Text.Replace(".","")
SelectTo = DateToShow.Text.Replace(".","")
Log("SelectFrom = "&SelectFrom)
Log("SelectTo = "&SelectTo)
'----*
Cursor = DB.ExecQuery("Select * from LogRecord WHERE LogWeekNo='"&WeekNo&"' ORDER BY LogDate ASC")
' Cursor = DB.ExecQuery("Select * from LogRecord WHERE LogDate=>'"&SelectFrom&"' and LogDate=<'"&SelectTo&"' ORDER BY LogDate ASC")