Flytta information mellan två databaser?

Försöker flytta information mellan två databaser, men jag får inte det att funka utan jag får:
============
Microsoft JET Database Engine error '80004005'
Unspecified error
/forslag/avance.asp, line 39
============

Här är koden

<%
Response.Buffer = true
Kun = Request("Kundnr")

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

SQL = "SELECT * FROM BF WHERE Kundnr = '"& Request("Kundnr") &"'"
rs.open SQL, conn, 2, 2

do until RS.EOF

rs.update
rs("Justerat") = "0"
rs.update

RS.MoveNext
Loop
Conn.Close

set rs= nothing
set conn = nothing
%>

Denna del funkar som den ska, den nollställer Justerat i tabellen BF.

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

SQL = "SELECT * FROM BF WHERE Kundnr = '"& Request("Kundnr") &"'"
rs.open SQL, conn, 2, 2

do until RS.EOF

Artnr = rs("Artnr")

set conn2 = server.createobject("adodb.connection")
[B]conn2.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\Avance\data\fakt000.mdb;"[/B]
set rs2 = server.createobject("adodb.recordset")

	SQL2 = "SELECT * FROM FaktK WHERE Kundnr = '"& Request("Kundnr") &"' AND Artikelnr = '"& Artnr &"'"
	rs2.open SQL2, conn2, 2, 2

If RS2.EOF Then
ELSE
	rs.update
	rs("Justerat") = rs2("Antal")
	rs.update
END IF

RS.MoveNext
Loop
Conn.Close

set rs= nothing
set conn = nothing

set rs2= nothing
set conn2 = nothing
%>

Linje 39 är "bold"