下面是我的代码?
            dim bdate as date
            y = int(Val(bYear))
            m = int(Val(Left(bMonth, 1)))
            d =int( Val(Left(bDay, 1)))
            bdate = DateSerial(y, m, d)
            Print bdate
            '打开数据集
            mySql = "select * from NJYY_Y01MJZ where RQ=bdate"           其中“RQ=bdate"行吗?