Problem med asp og db

Hejsa

Jeg har et problem med at gemme informationer i min database! Jeg får følgende fejl:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Dette er min kode:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"



    sSQL = "SELECT Fagseminar, Firma, Fornavn, Efternavn, Betaling FROM Tilmeldte"
    rs.Open sSQL, , , adCmdTable

if Session("fornavn1") <> "" then

    rs.AddNew
    rs("Fagseminar") = Session("Fagseminar")
    rs("Firma") = Session("Firma")
    rs("Fornavn") = Session("fornavn1")
    rs("Efternavn") = Session("efternavn1")
    rs("Betaling") = Session("betaling")
    rs.update
   
end if
   
if Session("fornavn2") <> "" then

    rs.AddNew
    rs("Fagseminar") = Session("Fagseminar")
    rs("Firma") = Session("Firma")
    rs("Fornavn") = Session("fornavn2")
    rs("Efternavn") = Session("efternavn2")
    rs("Betaling") = Session("betaling")
    rs.update
   
end if

if Session("fornavn3") <> "" then

    rs.AddNew
    rs("Fagseminar") = Session("Fagseminar")
    rs("Firma") = Session("Firma")
    rs("Fornavn") = Session("fornavn3")
    rs("Efternavn") = Session("efternavn3")
    rs("Betaling") = Session("betaling")
    rs.update
   
end if

if Session("fornavn4") <> "" then

    rs.AddNew
    rs("Fagseminar") = Session("Fagseminar")
    rs("Firma") = Session("Firma")
    rs("Fornavn") = Session("fornavn4")
    rs("Efternavn") = Session("efternavn4")
    rs("Betaling") = Session("betaling")
    rs.update
   
end if

if Session("fornavn5") <> "" then

    rs.AddNew
    rs("Fagseminar") = Session("Fagseminar")
    rs("Firma") = Session("Firma")
    rs("Fornavn") = Session("fornavn5")
    rs("Efternavn") = Session("efternavn51")
    rs("Betaling") = Session("betaling")
    rs.update
   
end if
    rs.close


%>