Cursor1 = SQL1.ExecQuery("SELECT col1, col2, col3, col4 , Substr(col1,1,4) AS YR FROM table2 WHERE YR= '2013' ")
Cursor1 = SQL1.ExecQuery("SELECT col1, col2, col3, col4 , Substr(col1,6,2) AS MO FROM table2 WHERE MO= '12' ")
Cursor1 = SQL1.ExecQuery("SELECT col1, col2, col3, col4 , Substr(col1,9,2) AS DA FROM table2 WHERE DA= '31' ")