Бодрый вечер!

Вроде, просто, но не нашел вариант

Есть код

Sub ReadMDB()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
m = Sheets("Лист1").Cells(1, 1).Value
SQLr = "DELETE * FROM RRR  WHERE ID = " & m & ""
Set tbl = dbs.OpenRecordset(SQLr)

tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub

Но кидает ошибку при удалении строчки с уникальным ID

Подскажите, пожалуйста, что не так....)??

http://www.sql.ru/forum/1284172/udalit-zapis-po-id