I have a simple code in asp and VB which is used for search in a database (MS Access).All search are done but only one creates an error.When i search by a keyword it show this error. Error is ADODB.Recordset error '800a0cc1'.Item cannot be found in the collection corresponding to the requested name or ordinal
<%
Dim Sqlbooks
dim checkkeyword, checkarticle
checkarticle="False"
checkkeyword="False"
Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open("BookDB")
Sqlbooks = "SELECT * FROM Booklist"
Sqlkeyword="SELECT * FROM Keyword11"
sqlarticle="SELECT * FROM Article"
If Request.Form("TypeSearch") = "Accno" Then
Sqlbooks = Sqlbooks & " WHERE Acc_No LIKE '%" & Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Callno" Then
Sqlbooks = Sqlbooks & " WHERE Call_No LIKE '%" & _
Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Author" Then
Sqlbooks = Sqlbooks & " WHERE Author LIKE '%" & _
Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Title" Then
Sqlbooks = Sqlbooks & " WHERE Title LIKE '%" & _
Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "ISBN" Then
Sqlbooks = Sqlbooks & " WHERE ISBN LIKE '%" & _
Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Publisher" Then
Sqlbooks = Sqlbooks & " WHERE Publisher LIKE '%" & Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Binding" Then
Sqlbooks = Sqlbooks & " WHERE Binding LIKE '%" & Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Subject" Then
Sqlbooks = Sqlbooks & " WHERE Subject LIKE '%" & Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Keyword1" Then
checkkeyword="True"
Sqlkeyword = Sqlkeyword & " WHERE Keyword1 LIKE '%" & Request.Form("DaInBox") & "%'"
End If
If Request.Form("TypeSearch") = "Article" Then
checkarticle="True"
Sqlarticle = Sqlarticle & " WHERE Article LIKE '%" & Request.Form("DaInBox") & "%'"
End If
Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset")
If checkkeyword="True" then
rsGlobalWeb.Open Sqlkeyword, dbGlobalWeb, 3
<%End If
End If
End If
How i solve this error i check almost all the solution in google but not find any change. plz help