Работа с recordset и mssql

[AHTOXA]

Вопрос такой: имеется mssql сервер, нужно из таблицы excel'a засосать данные в базу. Приведенный ниже код выдает ошибку, что не так.

Private Function AddRecords()
Dim cur_range As Range
Dim rs As ADODB.Recordset

For a = 1 To Selection.Areas.Count
Set rs = SQLCON.Execute("Test", , adCmdTable)
rs.AddNew
For r = 1 To Selection.Areas(a).Rows.Count
For C = 1 To Selection.Areas(a).Columns.Count
v = Selection.Areas(a).Rows(r).Columns(C).Text
col_idx = Selection.Areas(a).Columns(C).Column
rs.Fields(col_idx) = v
Next C
Next r
rs.Update
rs.Close
Next a
Set rs = Nothing
End Function

PS.: на момент запуска данной функции соединение с БД установлено.

[AHTOXA]

Выдает ошибку:

Current Recordset does not support updating. This may be a limitation of the provider or of the selected locktype.

Никто не знает как с этим бороться?