Sub Insert()
Dim connDB As Object
Dim otdel As String
Dim sotrudink As String
dat = Date

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(,)"

'connDB.Execute = "INSERT INTO rrr VALUES(,)"
connDB.Close
Set connDB = Nothing
End Sub

Подскажите, пожалуйста, как вставить дату? Как прописать верно синтаксис?

http://www.sql.ru/forum/1284084/vstavit-datu-v-tablicu-access-iz-excel