Eu também um dia não acreditei!
Mas é bem simples, vamos inicialmente garantir que um componente foi adicionado ao projeto VBA
- Abra o ambiente VBA pressionando as teclas Alt+F11
- Vá ao menu Ferramentas(Tools) / Referencias (references)

- Localize e adicione a referencia "Microsoft activeX 2.8 Data Objects Library"

- Agora adicione um novo módulo VBA de código ao seu arquivo
- Menu Inserir(Insert) / Módulo (Module)

- Cole o Código abaixo e altere o nome da planilha e altere as variaveis
- arquivo e nomePlanilha de acordo com seus valores
Sub SQLXL()
Dim objConnection As ADODB.Connection
Dim objRecordset As New ADODB.Recordset
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
arquivo= "C:\Documents and Settings\Usuario\Desktop\ExemploSQL.xls"
NomePlanilha = "Plan1"
'Conexao
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & arquivo & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
'Setar recordset
objRecordset.Open "SELECT * FROM [" & NomePlanilha & "$] WHERE nomecampo = 'x'", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
End Sub





