[Resolvido] Leitura de Arquivo Excel

Olá colegas, boa noite!

Bom, mais uma vez recorro a ajuda de vocês. Já fiz várias tentativas, mais simples e mais complexa para fazer o insert de um arquivo excel e em todo deparo com o mesmo problema: A quantidade de linhas(registros) é triplicada no insert. Este último código que testei é bem simples, peço a ajuda de vocês. Um abraço!

<%
Dim Conn, RS
Dim Campos, contador

Call abre_conexao(ConnString,Conexao)
%>
<!--#include file="conexao.asp"-->
<%
Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source="& "e:\home\innac1\Dados\DOPPLERTI1644343.XLS" &";Extended Properties=Excel 8.0;"
'.ConnectionString = "Data Source="& "c:\DOPPLERTI112428.XLS" &";Extended Properties=Excel 8.0;"
.Open
End With
Set RS = Conn.Execute("SELECT * FROM [MEMORIAL DESCRITIVO BRINQUEDOS$] ORDER BY ITEM")
Do While RS.EOF = False
Sequencia = RS("Item")
Codigo = RS("Código de Barras")
NCM = RS("NCM")
Referencia = RS("Referência")
Descricao = RS("Descrição")
Quantidade = RS("Quantidade")
Medida = RS("Medida")
Faixa = RS("Faixa Etária")
Composicao = RS("Composição")
Funcionalidade = RS("Funcionalidade")
Dimensoes = RS("Dimensões")
Foto = RS("Foto")
'============= Campos

	qryString = qryString & "INSERT INTO Solicitacoes_Produtos(ID, Item, CodigoBarras, NCM, Referencia, Descricao, Quantidade, Medida, FaixaEtaria, Composicao, Funcionalidade, Dimensoes, Foto)"
	'=============== Valores
	qryString = qryString & " VALUES(" & 1 & "," & Sequencia & ",'" & Codigo & "','" & NCM & "','" & Referencia & "','" & Descricao & "'," & Quantidade & ",'" & Medida & "'," & Faixa & ",'" & Composicao & "'," & Funcionalidade & "," & Dimensoes & ",'" & Foto & "');"
	Conexao.Execute(qryString)
	RS.MoveNext

Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>