Erro VBscript

[VirginiaLucia 0]

Pessoal, Bom Dia!!Estou com um código que esta apresentando o erro abaixo. Não vou colar o codigopor enquanto mais voces poderiam me dizer que tipos de erros podem gerar a mensagem abaixo? []'s Virginia LuciaError Type:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

[VirginiaLucia 0]

Ok entao la vai o codigo, se existir alguma forma mais simplificada de fazer esse tipo de busca eu tb aceito sugestoes..

 

 

Error Type:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/estudo/pesquisa.asp, line 100

 

<%Set conn=Server.CreateObject("ADODB.Connection")Conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data source = C:\sdr1.mdb" Conn.Open'1 -----------------  If (Request.Form("pesqcentral")="SIM" and Request.Form("pesqmeio")="NAO" and Request.Form("pesqppi")="NAO") then   inst_sql= "Select * from ppi where Central='" & Request.Form("listacentral") & "'"  Response.Write "Você pesquisou pelo critério Central = <B>"& Request.form ("listacentral") & "</B>"End If '2------------------   If (Request.Form("pesqcentral")="NAO" and Request.Form("pesqmeio")="SIM" and Request.Form("pesqppi")="NAO") then     inst_sql= "Select * from ppi where TipoMeio= " & Request.Form("listameio") 	Response.Write "Você pesquisou pelo critério Meio = <B>"& Request.form ("listameio") & "</B>"End If '3-----------  If (Request.Form("pesqcentral")="NAO" and Request.Form("pesqmeio")="NAO" and Request.form ("pesqppi")="SIM") then   	inst_sql= "Select * from ppi where NomedoPPI like '%" & Request.Form("partnome")& "%' "											 	Response.Write "Voce pesquisou pelo criterio Nome do PPI contendo: <B>"& Request.Form ("partnome")  & "</B>"End if'4 -------- If (Request.Form("pesqcentral")="SIM" and Request.Form("pesqmeio")="SIM" and Request.form ("pesqppi")="NAO") then   	inst_sql= "Select * from ppi where central='" & Request.Form("listacentral") & "'and TipoMeio=" & Request.Form("listameio")	Response.Write "Voce pesquisou pelos seguintes criterios <BR>" 	Response.Write "Central = <B>" & Request.Form("listacentral") & "</B> <BR>"	Response.Write "MEio = <B>" & Request.Form("listameio") & "</B> <BR>"End if'5 -------- If (Request.Form("pesqcentral")="SIM" and Request.Form("pesqmeio")="NAO" and Request.form ("pesqppi")="SIM") then   	inst_sql= "Select * from ppi where central='" & Request.Form("listacentral") & "'and NomedoPPI like '%"	& Request.Form("partnome")& "%'"  Response.Write "Voce pesquisou pelos seguintes criterios <br> "							   Response.Write "Central  = <B>" & Request.Form("listacentral") & "</b> <br>"  Response.Write "Endereco contendo: <B>" & Request.Form("partnome") & "</b> <br> "End If'6 --------      If (Request.Form ("pesqcentral")="NAO" and Request.Form("pesqmeio")="SIM" and Request.Form("pesqppi")= "SIM") then     inst_sql = "Select * from ppi where TipoMeio = "& Request.Form("listameio") and  "NomedoPPI like '%" & Request.Form("partnome")& "%'"   Response.Write" Voce pesquisou pelos seguintes critérios <br> "  Response.Write "Meio = <b>" & Request.Form("listameio" ) & "</b> <br> "  Response.Write "Endereco Contendo: <B>" & Request.Form("partnome") & "</b> <br>"  End If  '7 ----------  If (Request.Form("pesqcentral")="NAO" and Request.form ("pesqmeio")= "NAO" and Request.Form ("pesqppi")="NAO") then  inst_sql= "Select * from ppi"  Response.Write "Voce nao especificou nenhum criterio. <BR>"  Response.Write"Foram retornados todos os registros. "   End If    '8 -----------If (Request.Form ("pesqcentral")= "SIM" and Request.Form("pesqmeio")="SIM" and Request.Form("pesqppi") = "SIM") theninst_sql= "Select * from ppi where TipoMeio= "& Request.form ("listameio") & "and Nomedoppi like '%" & Request.Form("partnome")& "%' and Central = '" & Request.Form("listacentral") & "'"Response.Write"Voce pesquisou pelos seguintes criterios <br>  "Response.Write "Central = <b>"& Request.Form("listacentral") & "</b> <br> "Response.Write "Meio = <b>"& Request.Form("listameio") & "</b> <br> " Response.Write " Endereco contendo: <b>"& Request.Form("partnome") & "</b> <br> "  End If  Set Busca =  Server.CreateObject("ADODB.Recordset") [color=#FF6666](Linha 100 )[/color]Busca.Open inst_sql, conn, 3, 3   Response.Write "<b> Foram encontrados: " & Busca.RecordCount & " Registros </b> <hr>"%>	 <A HREF="busca3.asp"> Clique aqui para fazer outra pesquisa.</A><HR> <TABLE BORDER="1"><TR> 	<TD> Sigla </TD>	<TD> Rota </TD>	<TD> NomedoPPI </TD>	<TD> Circuitos </TD>	<TD> Cic Inicial </TD>	<TD> Central </TD>	<TD> DPC </TD>	<TD> CodigoTipo </TD></TR><% Do While Not Busca.EOF %> <TR> 	<TD><% =Busca.Fields("Sigla")  %> </TD>	<TD><% =Busca.Fields("Rota")  %> </TD>	<TD><% =Busca.Fields("NomeDoPPI")  %> </TD>	<TD><% =Busca.Fields("circuitos")  %> </TD>	<TD><% =Busca.Fields("CicInicial")  %> </TD>	<TD><% =Busca.Fields("DPC")  %> </TD>	<TD><% =Busca.Fields("Saving")  %> </TD>	<TD><% =Busca.Fields("CodigoTipo")  %> </TD></TR><% Busca.MoveNext Loop%>