Não consigo Retorno tabela não existe

[ricardo coelho designer 0]

Bom dia !Recorro a vcs novamente....Bom tenho Bd de BD que precisa retornar que não há tabela.Mais ele não retorna.O que será que eu errei no codigo abaixo (BD em access).

for i = 0 to cat.tables.count - 1if lcase(cat.tables(i).type) = "table" Thenset rs = server.createobject("adodb.recordset")rs.open "select * from " & cat.tables(i).name, cn, 1,3,1if  "" & cat.tables(i).name &""  = "0"   thenresponse.write "Sem tabela"elseresponse.write "<br>" & "Tabela: " & cat.tables(i).name & "<br>"do until rs.eoffor x = 0 to rs.fields.count - 1response.write "Campo: " & rs.fields(x).name & " / Valor: " & rs.fields(x).value & "<br>"nextrs.movenextloopend ifnextrs.closeCn.CloseSet rs = NothingSet Cn = Nothingend if

[Anderson Roberto 0]

Tenta usar ADOX.

[jrcardozo 4]

já tentou mudar o IF

if  "" & cat.tables(i).name &""  = "0"   then

para

if  rs.eof   then