Есть база

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" & "(Дата DATETIME, ID  COUNTER);"
connDB.Close
Set connDB = Nothing
End Sub

Когда делаю запрос уже в

Sub Insert()
Dim connDB As Object
Dim otdel As String
Dim sotrudink As String
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "INSERT INTO RRR VALUES('" & Date & "', 1)"
connDB.Close
Set connDB = Nothing
End Sub

Как сделать, чтбоы

http://www.sql.ru/forum/1284085/avtomaticheski-numerovat-stroki-pri-dobavlenii-novyh-znacheniy