Dim oConn As OleDbConnection
Dim oCmd As OleDbCommand
Dim strSQL As String
Dim myDate As Date
myDate = CDate("4.10.2008") ' Use your locale date format, like "10/4/2008"
strSQL = "INSERT INTO <mytable> (<my date field>) VALUES ('" & myDate & "')"
oConn = New OleDbConnection("<your connectionstring")
oConn.Open()
oCmd = New OleDbCommand(strSQL, oConn)
oCmd.ExecuteNonQuery()