Banco de dados com Excel

O primeiro passo é criar a conexão, segue abaixo.

Sub AbrindoUmaTabela()
Dim MeuBD As Database
Dim MinhaTabela As Recordset
Set MeuBD = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "Excel 8.0")
Set MinhaTabela = MeuBD.OpenRecordset("$")
MsgBox MinhaTabela(0)
MeuBD.Close
End Sub

após isso feito, você pode utilizar esta conexão para para criar filtros como o Select abaixo.

Sub Gol()'nome da macro
Dim MeuBD As Database
Dim MinhaTabela As Recordset
Set MeuBD = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "Excel 8.0")
Set MinhaTabela = MeuBD.OpenRecordset("SELECT numero,nome, gol FROM [jogadores$] ORDER BY gol DESC;")'fazendo select na planilha jogadores e colocando em ordem decrescente
'Plan6.Cells.ClearContents
Plan6.Range("a2").CopyFromRecordset MinhaTabela
MeuBD.Close
End Sub