asp igen!!!

Jeg for hele tiden denne fejl:
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype. (rs.AddNew)

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("data/usersdata.mdb")
    strSQL = "select * FROM users WHERE (id = " & request("id") & ")"
    set rs = Conn.execute(strSQL)
   
    Vennerid = Rs("Id")
    Vennavn = Rs("Username")
    Venkon = Rs("kon")
   
    Conn.Close
    set Conn = Nothing   
   
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("venner.mdb") & ";UID=admin;PWD=;"

    Set aa = Conn.execute("select * from Venner where Userid = " & usersid & " and Venid = " & Vennerid & "")

    If aa.eof Then
  Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Venner"
    rs.Open strSQL, Conn

      rs.AddNew
      rs("Userid") = usersid
      rs("Ven") = Vennavn
      rs("Venid") = Vennerid
      rs("Kon") = Venkon
      rs.Update

      rs.Close
      Set rs = Nothing

    Response.Write "<br><br><br><br><font size='+2'>Venner:</font><br>Din nye ven er tilføje..."
    Else
    Response.Write "<br><br><br><br><font size='+2'>Venner:</font><br>Ven'en er tilføjet..."
    End if
    Set aa = nothing

    Conn.Close
    set Conn = Nothing

Kan du se fejlen???