Cannot be found...!

1.    Else
2.
3.        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
4.
5.        intFileUpload = FileUpload("pics/pasfoto/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)
6.
7.        If intFileUpload = 0 Then
8.
9.                Set Con = Server.CreateObject("ADODB.Connection")
10.                        Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/database.mdb")
11.                                Sql = "Update * FROM tblbruger"
12.                                    Set rs = Server.CreateObject("ADODB.RecordSet")
13.                                    Rs("pic") = strFilename
14.                                Rs.Update
15.            Response.Write "<BR><BR>Velkommen til systemet. Du er oprettet med success!"
16.        End If
17.    End If

---------
Har jeg lavet en fejl siden den siger
Item cannot be found in the collection corresponding to the requested name or ordinal.

??