[Resolvido] error '80020009' ?

Boa tarde galera!

To com um probleminha e ñ saco muito de ASP ñ ! Ocorre esse erro:

error '80020009'

/M401/M4014031.ASP, line 81

O Código é o seguinte (linha 81 em destaque):

<%
' Função: INVENTÁRIO
%>
<!-- #include virtual=/M001/M0019091.ASP -->
<!-- #include virtual=/M001/M0019012.ASP -->
<%

Set vlRSBusca = Server.CreateObject("ADODB.Recordset")
vlRSBusca.CursorLocation = 3
vlRSBusca.PageSize = 24

vlRSBusca.Open Session("vsConsulta"), vgoConexao, 1, 1
vnPagina = 1

vnID_LOCAL = Session("vnLocal")

vsApoioCabecalho = fsMontarDadosComplementares(vnID_LOCAL)

If vlRSBusca.RecordCount Mod 40 = 0 Then
vnTotalPaginas = CInt(vlRSBusca.RecordCount / 40)
Else
vnTotalPaginas = CInt(vlRSBusca.RecordCount / 40) + 1
End If

Session("vsInformacoesCabecalho") = "Fundação Nacional do Índio - FUNAI<br>Sistema de Patrimônio"
Session("vsDataHora") = fsMostrarData(fdObterDataAtual()) & "<br>" & fhObterHoraAtual()

Session("vsComplementoTitulo") = ""

'fsMontaDadosLocalHeadRelatorio(vnID_LOCAL)

If Not vlRSBusca.EoF Then
Response.Write(fsMontaHeaderRelatorio())

	Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=2>" & VbCRLF)
	Do While Not vlRSBusca.EoF
 Response.Write(fsMontaCabecalhoRelatorioSemLogoComTotal(4024011, vnTotalPaginas))
 Response.Write(vsApoioCabecalho)
 Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=0>" & VbCRLF)
 vlRSBusca.AbsolutePage = vnPagina
 Response.Write(fsMontarTituloTabela(6, "5%§8%§52%§10%§20%§5%", "left§center§left§right§center§center", "<small>Tomb.§<small>Grupo  §<small>Descrição§<small>Valor§<small>Est. Conserv.§<small>Localização</small>"))
 vsVALOR_PARCIAL = "0"
 For vnRegistroCorrente = 1 To vlRSBusca.PageSize
 vnID_BEM_MATERIAL = vlRSBusca("ID_BEM_MATERIAL")
 if Len(vnID_BEM_MATERIAL) = 1 then vnID_BEM_MATERIAL = "0" & vnID_BEM_MATERIAL

 vsTOMBAMENTO = vlRSBusca("TOMBAMENTO")
 vsDESCRICAO = Left(vlRSBusca("DESCRICAO"), 200)
 vsVALOR = fsMostrarNumero(vlRSBusca("VALOR_MATERIAL"), 2)
 vsVALOR_TOTAL = vsVALOR_TOTAL + vlRSBusca("VALOR_MATERIAL")
 vsVALOR_PARCIAL = vsVALOR_PARCIAL + vlRSBusca("VALOR_MATERIAL")
 vnQTD_ITEMS = vnQTD_ITEMS + 1
 vsESTADO_CONSERVACAO = vlRSBusca("ESTADO_CONSERVACAO")
 vsCODIGO_SIAPA = vlRSBusca("CODIGO_SIAPA")
 Response.Write(fsMontarLinhaRelatorio(6, vnRegistroCorrente, "left§center§left§right§center§center", vsTOMBAMENTO & "§" & vnID_BEM_MATERIAL & "§" & vsDESCRICAO & "§" & vsVALOR & "§" & vsESTADO_CONSERVACAO & "§" & vsCODIGO_SIAPA, ""))
 vlRSBusca.MoveNext
 If vlRSBusca.EoF Then
 Exit For
 End If
 Next
 vnPagina = vnPagina + 1
 'Response.Write "<tr><td colspan=5>Valor parcial</td><td>" & vsVALOR_PARCIAL & "</td></tr>"
 Response.Write("</table>" & VbCLRF)
 Response.Write(fsMontaRodapeRelatorio())
 If Not vlRSBusca.EoF Then
 Response.Write("<div><br></div>" & VbCRLF)
 End If
	Loop
	vlRSBusca.Close
	Response.Write(fsMontaFooterRelatorio())

End If
Set vlRSBusca = Nothing

Function fsMontarDadosComplementares(ByVal vnID_UNIDADE_ORCAMENTARIA)
Set vlRSApoio = Server.CreateObject("ADODB.Recordset")

	vsInstrucao = "SELECT L401.CODIGO_SIAPA, L401.SIGLA, L401.NOME_LOCAL FROM M401_LOCAIS L401 WHERE L401.ID_LOCAL = " & vnID_LOCAL

	vlRSApoio.Open vsInstrucao, vgoConexao, 1, 1

=======>>>> LINHA 81 fsMontarDadosComplementares = "" &_ <<<<<=========== LINHA 81

 "<table border=0 width=100% cellspacing=0 cellpadding=0>" & VbCRLF &_
 " <tr>" & VbCRLF &_
 " <td width=15% align=left>" & Session("vsFontePadrao") & "Local</td>" & VbCRLF &_
 " <td width=20% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("CODIGO_SIAPA") & "</b></td>" & VbCRLF &_
 " <td width=20% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("SIGLA") & "</b></td>" & VbCRLF &_
 " <td width=45% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("NOME_LOCAL") & "</b></td>" & VbCRLF &_
 " </tr>" & VbCRLF
	vlRSApoio.Close

End Function ...

Alguém pode me ajudar, pensei q era Buffer, ja até aumentei ele no IIS no arquivo "MetaBase.xml", porém ñ resolveu. O q eu faço ?

Grato !