Loop dentro de uma tabela

Olá,

estou com um problema no codigo com o seguinte erro:

error '80020009'.

tenho duas tabelas que estao relacionadas, no meu codigo estou colocando um loop dentro de outro e esta gerando o erro, mas nao sei como resolver.

ASP

[*]<%

[*]'On Error Resume Next

[*]Do While Not DadosHotel.EOF%>

[*]<tr bgcolor="#CCCC99">

[*]<td><%= DadosHotel("Nome")%></td>

[*]<td colspan="5" bgcolor="#FFFFFF"><div align="left"><strong></strong></div>

[*]<div align="left">

[*]<table width="100%" border="0" cellspacing="0" cellpadding="0">

[*]<%Do While DadosTarifa("id_Hotel") = DadosHotel("id_Hotel")

[*]if not DadosHotel.EOF or DadosHotel.BOF then

[*]%>

[*]<tr bgcolor="#CCCC99">

[*]<td><%= DadosTarifa("Categoria")%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotBalcaosgl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotBalcaodbl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotAcordosgl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotAcordodbl"))%></td>

[*]</tr>

[*]<%end if

[*]DadosTarifa.MoveNext

[*]Loop

[*]%>

[*]</table>

[*]</div> </td>

[*]</tr>

[*]<%DadosHotel.MoveNext

[*]Loop

[*]

[*]DadosHotel.Close

[*]Set DadosHotel = Nothing

[*]Fecha_BD()

[*]%>

Alguem se habilita, pois ja estou com dor de cabeca.