Подскажите какую баблиотеку надо подключить что бы в excele сработал код


Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\1\1.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

rst.Open "SELECT * FROM [Лист1$A1:B6]", cnn

Range("A1").CopyFromRecordset rst

rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing

Cпасибо все получилось