librerias dll para el sig. codigo!!

hola amigos haber quien puede ayudarme para adaptar esta macro. saludos


Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim recCampo As ADODB.Field
Dim strDB, strSQL As String
Dim i As Long
'ruta al archivo Excel (la base de datos)
'strDB = ThisWorkbook.Path & "\" & "MiArchivoExcel.xls"
strDB = "C:\bdfinanzas\Base05.xls" 'si en otra carpeta
'conectarSet
datConnection = New ADODB.Connection aqui se me detiene la macro
Set recSet = New ADODB.Recordset
datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB
'consulta SQL
'strSQL = "SELECT * FROM [NuestroRango]"
strSQL = "SELECT * FROM [GopDatA$A1:w2000]"
'abrimos el recordset
recSet.Open strSQL, datConnection, adOpenStatic
'copiar datos
ActiveSheet.Cells.ClearContents
ActiveSheet.Cells(2, 1).CopyFromRecordset recSet
'copiar rotulos (campos)
i = 1
For Each recCampo In recSet.Fields
ActiveSheet.Cells(1, i) = recCampo.Name: i = i + 1
Next recCampo
'desconectar
recSet.Close
datConnection.Close
Set recSet = Nothing
Set datConnection = Nothing
End Sub