Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR " & "(ID  COUNTER, r DATETIME, m TEXT, n TEXT,o TEXT, k TINYINT, s TEXT);"
connDB.Close
Set connDB = Nothing
End Sub

Sub uu()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
Range("F:L").ClearContents
SQLr = "SELECT ID, r, m, n,o,k,s FROM RRR WHERE o = '" & Sheets("Лист1").Cells(1, 1).Value & "' AND  ID= " & Sheets("Лист1").Cells(2, 1).Value & " "

Set tbl = dbs.OpenRecordset(SQLr)
Sheets("Лист1").Select
Cells(2, 6).CopyFromRecordset tbl
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub