res2 <- dbSendQuery(wrds, "select CUSIP, DATE, RET, RETX, VOL
                           from CRSP.DSF
                           WHERE DATE >= '2005-01-01' AND DATE <= '2019-04-01' AND CUSIP IN('09179710', '98252610', '69331C10')")

crsp.dsf2 <- dbFetch(res2, n = -1)

cusip <- c('09179710', '98252610', '69331C10')

res2 <- dbSendQuery(wrds, "select CUSIP, DATE, RET, RETX, VOL
                           from CRSP.DSF
                WHERE DATE >= '2019-03-01' AND DATE <= '2019-04-01' AND CUSIP IN(cusip)")