Sub Macro()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Criação da conexão com o banco de dados
Set cn = New ADODB.Connection
cn.ConnectionString = Workbooks(1).Worksheets(1).Range("B1") & Workbooks(1).Worksheets(1).Range("C1")
cn.Open
'Definição de um novo objeto recordset
Set rs = New ADODB.Recordset
'Definição da instrução SQL para selecionar as informações da base de dados
Sql = Workbooks(1).Worksheets(1).Range("B2")
'Executar a consulta e criar o recordset
rs.Open Sql, cn
Dim row, col As Long
row = 4
col = 1
For Each x In rs.Fields
Workbooks(1).Worksheets(1).Cells(row, col) = x.Name
col = col + 1
Next x
row = 5
While Not rs.EOF
For col = 0 To rs.Fields.Count - 1
Workbooks(1).Worksheets(1).Cells(row, col + 1) = rs(col)
Next col
row = row + 1
rs.MoveNext
Wend
'Encerra a conexão com a base de dados
cn.Close
End Sub