Crear un Reporte Con Data Report sin DataEnvironment : Codigo

sql = "Select cedula,fecha,nombre from cliente order by fecha, nombre" Set rs = New ADODB.Recordset rs.Open sql, conexion, adOpenStatic rs.StayInSync = False Set Ventas.DataSource = rs 'Los Reportes tienen Secciones y lo especificas dentro de los parentesis 'El Contro son los label q colocas para los campos.. y el datafield es el nombre del campo de la base de datos Ventas.Sections("Sección1").Controls("TextNombre").DataField = "nombre" Ventas.Sections("Sección1").Controls("TextFecha").DataField = "fecha" Ventas.Sections("Sección1").Controls("Textcedula").DataField = "cedula" Ventas.Show 1 rs.Close

Te Recomiendo que bajes el manual de SQL y de ADO, publicados en este blog para que sepas que estas haciendo(hay lineas que van seguidas pero el blog no me permite escribir lineas tan largas. tomalo en cuenta)

MANUAL ADO
MANUAL SQL