импорт из Exel в Access

[borg]

Привет сем!
народ помогите пожалуста!
Проблема в следующем:
cтоит задача сделать надстройку в БД Access чтобы импортитровать в базу инфу из Exel.
написал следующий код чтобы открыть .xls файл
и открываю текущую базу чтобы в поле ID_organ таблицы
organ, чтобы добавить инфу из файла SOV.xls
ошибку выдает Type Mismatch

Public Sub ExcelConnection()
Dim str As String
Dim xlaProd As Excel.Application
Dim xlwProd As Excel.Workbook
Dim xlsProd As Excel.Worksheet
Set xlwProd = GetObject("D:\SOV.XLS", "Excel.Sheet")
Set xlsProd = xlwProd.ActiveSheet
str = xlsProd.Cells(1, 1)
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("organ") здесь выдает ошибку type
mismatch

rec.MoveLast
rec.AddNew
rec("ID_organ") = str
rec.Update
End Sub

поможите люди кто чем может!!![/u][/b]

[GSerg]

Наверное, смешение типов DAO и ADO. Явно укажи: DAO.Recordset. Или ADO.Recordset...

[borg]

БАААААААААААЛЬШОЕ СПАСИБО
ВСЁ ПОЛУЧИЛОСЬ

меня возмущает только одно
почему ни в одной из книжек, где я искал ответ на этот вопрос
я этот ответ так и не нашёл(((