fejl ved rs.Edit

Jeg prøver at opdatere i en database med koden:

<%
  Dim mySmartUpload
  Dim file
  Dim intCount
  Dim strVaren
  intCount=0
 
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If not file.IsMissing Then
        file.SaveAs("gifs/" & file.FileName)
       
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("cgi-bin/varedata.mdb")
Conn.Open DSN

    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from varer Where ID = '" & Request.Querystring("ID") & "'"
    rs.Open strsql, conn, 1, 3

    rs.Edit

line 35:    rs("Navn") = mySmartUpload.Form("Navn")
    rs("Beskrivelse") = mySmartUpload.Form("beskrivelse")
    rs("Kategori") = mySmartUpload.Form("Kategori")
    rs("Pris") = mySmartUpload.Form("Pris")
    rs("Varenr") = mySmartUpload.Form("Varenr")
    rs("Img") = file.FileName
    rs.update

        intCount = intCount + 1

End If
Next
%>

Men jeg får fejlen:

Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'rs.Edit'

/schack/update.asp, line 35