riconoscere la fine del file excel

[tigre2209]

apro un file excel per copiare i dati su un database-

su un pc funziona,
ma su un altro non mi da errore, ma mi scrive sul database migliaia di record vuoti,(devo interrompere il processo)
come posso fare per riconoscere la fine dei record?
questo è il codice:


Set connT = Server.CreateObject("ADODB.Connection")
connt.open = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath ("\sito\prova.xls") & ";DefaultDir=" & Server.MapPath(".") &";DriverId=790; FIL=MS Excel; MaxBufferSize=512; PageTimeout=5"

set rst=server.createobject("adodb.recordset")
Set RsT = ConnT.OpenSchema(20)
NomeTabella = rsT("TABLE_NAME")
rsT.Close

strConn = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath ("\sito\prova.xls") & ";DefaultDir=" & Server.MapPath(".") &";DriverId=790; FIL=MS Excel; MaxBufferSize=512; PageTimeout=5"



set DbConn=server.CreateObject("adodb.connection")
sqlString="SELECT * FROM [" & nometabella & "]"
set rs=server.createobject("adodb.recordset")

rs.activeconnection=strConn
rs.open sqlString

'scrivo i dati sul database
do until rs.eof
IF trim(RS("id") &"[]") <> "[]" THEN
rs1.addnew
rs1("ufficio")= rs1("ufficio")
rs1("codice")=rs("codice")
ecc...

[Roby_72]

Esci dal loop se il campo che controlli è vuoto.

Roby