læs fra en tabel og gem i ny tabel hvordan

Jeg har en kalender hvor jeg har gemt nogle fødselsdage, dem vil jeg nu gerne have vist i en liste, men det kan jeg ikke få til at virke !! det er selvf. Fordi at jeg har gemt datoen som ”28-02-69” og jeg ville så gerne have den vist som 28-02-01  det virker faktisk også hvis jeg laver det som en forespørgsel i access, men dog ikke helt, så nu vil jeg gerne have gemt mine rettede data i en ny tabel hvor så fødselsdagen så vliver gemt rigtig, men jeg kan ikke for det til at virke.
Jeg for denne fejl
21-12-2001INSERT INTO kalender (userID,eventID,event_dato,event_beskrivelse,fornavn) VALUES (1,4,#21-12-2001#,Fødselsdag,Steen)
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e10\'
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 2.
/privat/vis_dato.asp, linje 48
linje 48  er ” Conn.Execute (SQL1)”

Nogen der kan få dette til at virke ?

Min kode er:
<%
session(\"userID\")=\"1\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"privat_db.mdb\")


SQLstmt =\"SELECT * from vis_event WHERE Event_userID=\"&session(\"userID\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)


  DO WHILE NOT rs.EOF
    dato =\"\"
    antal_dage=0
    event_dato = rs(\"event_dato\")
    event_beskrivelse = rs(\"event_beskrivelse\")
    eventId = rs(\"eventId\")
    fornavn = rs(\"fornavn\")
    dag = rs(\"dag\")
    mdr = rs(\"mdr\")
    igen = rs(\"igen\")
    userID = rs(\"Event_userID\")

dato =dag+\"-\"+mdr+\"-\"+ cstr(year(date)+1)
if igen = \"Ja\" then
      antal_dage =DateDiff(\"D\", date, dato) -365
      if antal_dage < 0 then
      dato =dag+\"-\"+mdr+\"-\"+ cstr(year(date)+1)
      else
      dato =dag+\"-\"+mdr+\"-\"+ cstr(year(date))
    end if
event_dato=dato
end if


Response.Write event_dato


SQL1 = \"INSERT INTO kalender (userID,eventID,event_dato,event_beskrivelse,fornavn)\"
SQL1 = SQL1 & \" VALUES (\" & userID & \",\" & eventID &\",#\" & event_dato & \"#,\"& event_beskrivelse & \",\"& fornavn & \")\"


response.write SQL1

Conn.Execute (SQL1)

  rs.MoveNext

  LOOP








RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
Set SQL1 = nothing



    %>