Pelo VBA realizar consulta no servidor SQL 2008 e gerar relatórios no Excel com extensão *xlsx

Galera boa noite !

Tenho a seguinte duvido preciso realizar via VBA (esse VBA que tenho não é o nativo no pacote office é em outro software) um consulta no servidor SQL 2008 e gerar relatorios em extensão *.xlsx
9
Iniciei meu codigo assim, mais não sei o que fazer depois dai o que faço com a variavel "sql" para importar no excel ? Ajudem ;(

Private Sub CommandButton1_Click()

Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection

cn.Provider = "SQLOLEDB"
cn.Properties("Data Source").Value = "FAONE\LOCADORA"
cn.Properties("Initial Catalog").Value = "Locadora"
cn.Properties("User ID").Value = "sa"
cn.Properties("Password").Value = "deaut1234"
cn.Open

MsgBox " Conexao efetuada com sucesso ! "

sql = "EventTimeStamp BETWEEN convert(datetime,'" + TextBox2.Value + "', 103)"
sql = sql + " AND convert(datetime,'" + TextBox3.Value + "', 103)"
sql = sql + "AND Message LIKE '%" & TextBox1.Text & "%'"
sql = sql + "AND Message LIKE '%" & TextBox4.Text & "%'"

    NESSE PONTO O QUE FAÇO COM A CONSULTA QUE FIZ QUE É O VALOR DA VARIAVEL "SQL" ?

End Sub