Fra text til Access

Hej

Jeg skal overføre en semikolon adskilt fil, til en access database. Jeg har fundet frem til følgende:

set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../emk_v20_data.asp")

DelSQL = "delete * from Jung_vare"
Conn.Execute(DelSQL)

Response.write "De gamle data er slettet ! - Systemet gemme de nye data, vent!"

SQL = "SELECT * FROM jung_vare"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, conn, 3, 3

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("jung.txt"))

do while not fil.AtEndOfStream
    Line = fil.readline
    LineSplit = split(Line,";")

  RS.Addnew
    RS("KatagorID") = Linesplit(0)
    RS("Brand") = Linesplit(1)
    RS("Varetekst") = Linesplit(2)
    RS("prof") = Linesplit(3)
    RS("Viola") = Linesplit(4)
RS.Update
loop


set fso = server.createobject("scripting.filesystemobject")
fso.deletefile(Fil)
set fso = nothing


set fil = nothing
set RS = nothing

Men det virker som om den loop'er i det uendelige... Selv med 5 linjer i text filen, går den i stå. Hvad kan der værer galt.

På for hånd tak.

Peter.