ADO + бд в Excel

[Aiden]

Проблема простая - в базу по какой-то причине не сохраняет

Dim title(1 To 13), field(1 To 13) As String
Dim aCn As ADODB.Connection
Dim aRs As ADODB.Recordset
With aCn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & s & ";FirstRowHasNames=0;"
.Open
End With
aRs.Open "select * from db", aCn, adOpenKeyset, adLockOptimistic
'расчет данных для ввода в бд
aRs.AddNew title, field
aRs.Update
aRs.Close
aCn.Close

[Aiden]

Неужели никто не в курсе?

[doober]

я думаю что ответ здесь прост,надо прописать команду Update
вот например текст команды на обновление поля Имя
Это для наглядности

UPDATE    AgentName
SET              Имя = ?
WHERE     (Ид = ?) AND (? = 1) AND (Имя IS NULL) OR
                      (Ид = ?) AND (Имя = ?)

[Aiden]

"update db set Date=10 where Id=15"

Без результатов Может просто удалить запись и записать по новой? Удаление работает отлично. Для записи использую код:

sQuery = "INSERT INTO [db$] (Date,Region) VALUES (2,2)"
Set aRs = aCn.Execute(sQuery)

Тоже не работает