strSQL = "INSERT INTO prihod (series, [Date], [Time], kod, kolichestvo) VALUES ('" & Me.Поле1 & "', #" & Date & "#, #" & MyTime & "#, " & Me.Поле3 & ", " & Me.Поле5 & ");"
format(date, "mm\/dd\/yyyy")
Date = Format(Date, "dd\mm\yy")
Type mismatch