Buen día

Me pueden apoyar, estoy realizando un programa VB (Access) 2013, pero ya me atore, al momento de que quiero mandar una consulta por correo, para la consulta utilice lo siguiente:

Me.BVencer.RowSource = "SELECT Documento, [Fecha Vencimiento] FROM [G-0001] WHERE [Fecha Vencimiento] BETWEEN date()+1 and date()+30"
Me.BVencidos.RowSource = "SELECT Documento, [Fecha Vencimiento] FROM [G-0001] WHERE [Fecha Vencimiento] <= date()"

Y el resultado (BVencer, BVencidos), lo quiero colocar en los detalles del correo X