UNA sola tabella con IdReception che indica la reception interessata. Vedrai che ti semplifica di molto tante elaborazioni; per esempio la query di cui sopra diventa semplicemente

dim lasele as string="Select * from receptions where tessera >=" & datainizio2 & " and tessera <=" & datafine2 & " order by tessera desc, datas desc"