Open forstyrrer hinanden

får fejl i :
Response.Write "<hr color=#000000>"
sog = Request.Form("sogefelt")


intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("System.mdb")

if Request.Form("soeg") = "bruger" then
strSQL = "Select * From Brugere Where Bruger like '%" & sog & "%'"
elseif Request.Form("soeg") = "trad" then
strSQL = "Select * From Threads Where (Threadok = true) AND (Threademne like '%" & sog & "%')"
end if

rs.Open strSQL, DSN, 1

rs.Open linjen giver denne fejl :

ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.