В книге Б.Виллариала "Программирование в примерах (Access 2003)" усть процедура импрота данных из Excel в Access^

1 Private Sub Import_Click()
2 Dim ToAccess As String, rg As Range
3 Dim ExcelApp As Excel.Application
4 Dim cn As ADODB.Connection
5 Dim rs As ADODB.Recordset
6
7 Set cn = CurrentProject.Connection
8 Set rs = New ADODB.Recordset
9 rs.Open "kumi", cn, adOpenKeyset, adLockOptimistic
10 Set ExcelApp = New Excel.Application
11
12 ExcelApp.Workbooks.Open "C:\My Documents\reestr.xls"
13 ExcelApp.Visible = True
14 ExcelApp.Range("a2").Activate
15 ToAccess = ExcelApp.Range(Selection, Selection.End(xlDown)).Address
16 ActiveWorkbook.Names.Add Name:="ToAccess", RefersTo:="=" & ToAccess
17 Set rg = ExcelApp.Range("ToAccess") 'Uses the named range "ToAccess"
18 For Each rg In rg
19 With rs
20 .AddNew
21 .Fields("Name").Value = rg.Value
22 .Update
23 End With
24 Next rg
25 rs.Close
26 cn.Close
27 Set rs = Nothing
28 Set cn = Nothing
29 Set rg = Nothing
30
31 End Sub

После запуска поцедуры для строки 17 выдается сообщение "Method Range of object '_Application' failed"
Подскажите, где ошибка.

Всем спасибо.