How to get the DB2 Current date in Where Clause for VB Program.

I need some help with using the DB2 current date in my select where clause below for my VB program.   I know this is not the correct format.    Can someone please help.        
oCant.Append " And F.DT_RDG_TO < " & SELECT CURRENT_DATE FROM SYSIBM.SYSDUMMY1 oCant.Append " AND F.DT_RDG_TO > " & SELECT CURRENT_DATE - 12 MONTHS FROM SYSIBM.SYSDUMMY1            

Here is my Db2 SQL:
oCant.Str = "select "
                     oCant.Append " F.QY_DA_USE, "
                    oCant.Append " F.DT_RDG_TO, "
                    oCant.Append " F.KY_RDG_SEQ_NO "
                   oCant.Append " From "
                    oCant.Append strDBName & ".CU04TB08_RDCONSHDR F "
                    oCant.Append " Where "
                     oCant.Append " And A.KY_BA = F.KY_BA "
                    oCant.Append " And F.DT_RDG_TO < " & SELECT CURRENT_DATE FROM SYSIBM.SYSDUMMY1
                    oCant.Append " AND F.DT_RDG_TO > " & SELECT CURRENT_DATE - 12 MONTHS FROM SYSIBM.SYSDUMMY1