Kan nån se nått fel med denna?

Det är meningen att den ska hämta information från en tabell där artnr är lika med falt1, men det funkar inte, all de gör är

set conn = server.createobject("adodb.connection")
conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\B_forslag.mdb;"

'Create the recordset object
set rs = server.createobject("adodb.recordset")

SQL = "SELECT * FROM BF WHERE Artnr IN (SELECT Falt1 from "& Kun &") AND Kundnr = '"& Kun &"'"
rs.open SQL, conn, 2, 2
do until RS.EOF

rs("Artnr") = artnumero

SQL2 = "SELECT * FROM "& Kun &" WHERE Falt1 = '"& artnumero &"'"
Set RS2 = Conn.Execute(SQL2)

do until RS2.EOF

rs.update
rs("Artnr") = rs2("Falt1")
rs("Benamning") = rs2("Falt2")
rs("totalt_salda") = rs2("Falt3")
rs("Medel") = rs2("Falt4")
rs("ME") = rs2("Falt5")
rs("Kundnr") = rs2("Falt6")
rs.update

RS2.MoveNext
Loop
RS.MoveNext
Loop
Conn.Close