Loop com recordset

[Clauido José]

Ola pessoal fiz um sistema que importa dados do exccell para sql server bom tenho varios cabeçalhos que importo, só que não sei porque tem alguns que não importa ele abre o arquivo xls como os dados certo dei um response.write(rs.RecordCount) pra ve se tava tranzendo a quandidade certa de registro do arquivo xls bom ele traz certo não mas não entra no loop.

Porque sera vou postar o codigo

<!--#include file="strcon.asp"-->

<%

dim strTitulo,strTexto,strNew, Conexao, strSql,myVal

call abreConexao()

'Cria um objeto para verficar o caminho o e nome do arquivo para importação

Set objUpload = Server.CreateObject("Dundas.Upload.2")

'Cria conexão Planilha

Set dbXLS = Server.CreateObject("ADODB.Connection")

'Começa a função para exportar o arquivo para excell

dim i

i = 0

'Configura o objeto com o tamanho do arquivo

objUpload.MaxFileSize = 2114400

objUpload.UseUniqueNames = False

strCaminho = "\DTH\PLANILHA"

objUpload.Save Server.MapPath("\DTH\PLANILHA")

strCaminho = objUpload.Files.Item("txFile").Path

'Abre o arquivo excell

sql="Driver=Microsoft Excel Driver (*.xls);DBQ=" & strCaminho

'Response.Write(sql)

'Response.End()

dbXLS.Open sql

'Cria um array para ler os dados da planilha excell

Set rsXLS = dbXLS.OpenSchema(20)

'Posiciona o ponteiro no primeiro registro da tabela excell

rsXLS.MoveFirst

TabPrecos = rsXLS("TABLE_NAME")

SQL = "Select * from [" & tabPrecos & "]"

rsDados.open sql, dbXLS,1,1

if rsDados.recordCount>0 then

'Começa o loop para tranfirir o dados da tabela excell para o access.

While not rsDados.eof

'rotina de atualização do banco de dados

wEnd

end if