Create retrive data from sql.R