Hola,
Te mando este ejemplo,
'Creamos el objeto
set excel = server.createObject("Excel.Application")
set libro = excel.workbooks.add
'Asignas valores
libro.worksheets(1).range("A1").value = "ESTADISTICA POBLACIONAL"
libro.worksheets(1).range("A1").font.bold = true
libro.worksheets(1).range("A1").font.size = 12
libro.worksheets(1).range("A3").value = "EMPRESA: "
libro.worksheets(1).range("B3").value = "Nombre Empresa"
nombre = "Fichero.xls"
libro.saveas server.Mappath("..\..\" & nombre)
libro.close
excel.quit
Y para bajar de la BD en lugar de texto fijo, utilizas utiliza los valores que hayas obtenido de la consulta, ahi ya utilizas tu logica,
Saludos,