Unfortunately, I'm on a public PC with no VB IDE cause my PC won't boot. But I'm sure someone can give you a sample using SHAPE query cause you did this.

Rs.open "Select * from checknew", conn
Set returnnoReport.DataSource = Rs

Best if you posted relevant table structure and how the tables are related (on which fields) to facilitate creation of the query.