Jag försöker använda koden under men får ett fel på raden; recSet.Open strSQL, datConnection, adOpenStatic

Vet någon vad det kan vara för fel?

Jag har sparat filen i xlsm.

Sub ImporteraExcelTillExcel_ADO()
 
'--------------------------------------------------------------
'importerar data fr?n en extern Excelbok utan att ?ppna den
'--------------------------------------------------------------

'variabeldeklareringar
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim recRubrik As ADODB.Field
Dim strDB, strSQL As String
Dim strDriver As String
Dim i As Long

 
's?kv?g till den externa Excelfilen
strDB = ThisWorkbook.Path & "\" & "ADO test siffror.xlsx" 'filen i samma folder
'strDB = "C:\Documents and Settings\tcn0422\My Documents\hej" 'filen i annan folder

'uppkoppling
Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
strDriver = "DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)"
datConnection.Open "DBQ=" & strDB & ";" & strDriver & ";UID=admin;"
 
'SQL-f?rfr?gan
strSQL = "SELECT * FROM [Sheet1$A1:E10]" 'cellomr?de p? visst ark
'strSQL = "SELECT * FROM [Cellomr?desnamn]" 'f?r namngivna cellomr?den

'?ppnar ett "recordset"
recSet.Open strSQL, datConnection, adOpenStatic
 
'kopierar in ny data
ActiveSheet.Range("A2").CopyFromRecordset recSet
 
'kopierar kolumnrubriker
i = 1
For Each recRubrik In recSet.Fields
 ActiveSheet.Cells(1, i) = _
  recRubrik.Name: i = i + 1
Next recRubrik
 
'kopplar ned (viktigt!)
recSet.Close
datConnection.Close
 
'st?nger ned objekten (viktigt!)
Set recSet = Nothing
Set datConnection = Nothing
 
End Sub