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

Dim connDB As Object
Dim n As String
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
m = Sheets("Лист1").Cells(1, 1).Value