Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) fejl

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/Default.asp, line 28

linje 28 = rs.Open sql, cn, 3, 4

HELE CODE
<%
db() 'Ã…bning af databasen

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT [ID],[TITLE],[TDATE],[SIZE],[OS],[BUY],[DL],[GIF],[TYPE],[INFO] FROM tabel1 ORDER BY [TYPE] DESC, [TDATE] DESC"
rs.Open sql, cn, 3, 4

If Not (rs.BOF Or rs.EOF) Then
    response.write "DL<br /><br />"

    Do While Not rs.EOF
   
        strTitle = rs.field("TITLE").value
        strTDate = rs.field("TDATE").value
        strSize = rs.field("SIZE").value
        strOS = rs.field("OS").value
        strBuy = rs.field("BUY").value
        strDL = rs.field("DL").value
        strGif = rs.field("GIF").value
        strType = rs.field("TYPE").value
        strInfo = rs.field("INFO").value
               
          response.write "<b>" & strInfo & " - " & strDL & "<b/><br /><br />" & _
                      strGif & "<br /><br />" & _
                      "Skrevet af " & strSize & ".<br /><br />"
        rs.MoveNext
    Loop
        response.write ""
    else
        response.write "Der er endnu ikke noget at downloade"
End If
%>