Dim strSQL As String = "INSERT INTO Tab1 (Aenderung) VALUES (@Datum)"
 Dim com As New OleDbCommand(strSQL, con)
com.Parameters.Add(New OleDbParameter("@Datum", OleDbType.DBDate))
com.Parameters("@Datum").Value = DateTime.Now