Si ya tienes abierta a conexión a la BD (suponemos que se llama "cn")
Código:
Dim ExcelFile As String
Dim HojaExcel As String
ExcelFile = App.Path & "\Libro1.xls"
HojaExcel = "[Hoja1]"
cn.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & ExcelFile & "]." & _
HojaExcel & " FROM LaTablaSql"
Hay muchos métodos para exportar datos a Excel: Abrir un recordset y copiar campo a campo, usar el método CopyFromRecordset, etc. etc.. pero de todos los que he probado, éste es el más sencillo y más rápido.