Hjælp til søge funktion i database

Hej

Jeg er igang med at lave en søge funktion til en MS SQL database.
Jeg har lavet en start side(default.asp) og en side med søge sciptet på(soeg.asp).
men der bliver en konflikt mellem de 2 sider når jeg laver et recordset på soeg.asp siden.
jeg for følgene fejl
"ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/soeg.asp, line 54"

Klip fra default.asp
<%
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER=SQL Server;UID=Anonym;PWD=Anonym;Server=172.19.193.0;Database=BogDatabase"
conn.open strConn
%>

Klip fra soeg.asp
sub DoSearch (strS)
  dim strSQL, objRS
  strSQL = "SELECT Nummer, Titel, Forfatter, Forlag, ISBN_nummer FROM Bogtabel " & _
          "WHERE Titel LIKE '%" & strS & "%'"

set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly,adCmdText
  if not objRS.EOF then
    strSearchRes = objRS.GetString( , , ",", ",")
else
    strSearchRes = ","
end if
objRS.Close
Set objRS = Nothing
strSearchRes = left(strSearchRes, len(strSearchRes)-1)
end sub

Skal jeg skrive recordset ind i default.asp eller hva? jeg har prøvet alt