Overfør fra en DB til en anden???

Hvordan overfører jeg data fra den ene database til den anden???

Jeg har selv lavet denne her, men den virker ikke:
<%
If Request("b") = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("nyusersdata.mdb")
strSQL = "SELECT * FROM users where (Username = '" & session("password-session") & "')"
set rs = Conn.execute(strSQL)

if rs.EOF then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("usersdata.mdb")
strSQL = "select * FROM users WHERE (Username = '" & session("password-session") & "')"
set rs = Conn.execute(strSQL)

Username = RS("Username")
Level = RS("Level")
Password = RS("Password")
Quidditch = RS("Quidditch")
Email = RS("Email")
Mave = RS("Mave")
Bank = RS("Bank")
Navn = RS("Navn")
Status = RS("Status")
Stav = RS("Stav")
Er = RS("Er")
Beskrivelse = RS("Beskrivelse")
Antal = RS("Antal")
Signatur = RS("Signatur")
Blod = RS("Blod")
Kon = RS("Kon")
Klan = RS("Klan")
Kappe = RS("Kappe")
Hat = RS("Hat")
Sted = RS("Sted")
Liv = RS("Liv")
Angreb = RS("Angreb")
Solvsagl = RS("Sølvsagl")
Exp = RS("Exp")
Argang = RS("Årgang")
Pengeibank = RS("Pengeibank")
Fanget = RS("Fanget")
Sidstfanget = RS("Sidstfanget")
Forsvar = RS("Forsvar")
Ip = RS("Ip")
Point = RS("Point")
   
Conn.Close
set Conn = Nothing

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyusersdata.mdb")
Conn.Open DSN

strSQL = "Insert into users ("

strSQL = strSQL & "Username, "
strSQL = strSQL & "Level, "
strSQL = strSQL & "Password, "
strSQL = strSQL & "Quidditch, "
strSQL = strSQL & "Email, "
strSQL = strSQL & "Mave, "
strSQL = strSQL & "Bank, "
strSQL = strSQL & "Navn, "
strSQL = strSQL & "Status, "
strSQL = strSQL & "Stav, "
strSQL = strSQL & "Er, "
strSQL = strSQL & "Beskrivelse, "
strSQL = strSQL & "Antal, "
strSQL = strSQL & "Signatur, "
strSQL = strSQL & "Blod, "
strSQL = strSQL & "Kon, "
strSQL = strSQL & "Kappe, "
strSQL = strSQL & "Hat, "
strSQL = strSQL & "Sted, "
strSQL = strSQL & "Liv, "
strSQL = strSQL & "Angreb, "
strSQL = strSQL & "Sølvsagl, "
strSQL = strSQL & "Exp, "
strSQL = strSQL & "Årgang, "
strSQL = strSQL & "Pengeibank, "
strSQL = strSQL & "Fanget, "
strSQL = strSQL & "Sidstfanget, "
strSQL = strSQL & "Forsvar, "
strSQL = strSQL & "Ip, "
strSQL = strSQL & "Point) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Username & "', "
strSQL = strSQL & "" & Level & ", "
strSQL = strSQL & "'" & Password & "', "
strSQL = strSQL & "'" & Quidditch & "', "
strSQL = strSQL & "'" & Email & "', "
strSQL = strSQL & "" & Mave & ", "
strSQL = strSQL & "'" & Bank & "', "
strSQL = strSQL & "'" & Navn & "', "
strSQL = strSQL & "'" & Status & "', "
strSQL = strSQL & "'" & Stav & "', "
strSQL = strSQL & "'" & Er & "', "
strSQL = strSQL & "'" & Beskrivelse & "', "
strSQL = strSQL & "" & Antal & ", "
strSQL = strSQL & "'" & Signatur & "', "
strSQL = strSQL & "'" & Blod & "', "
strSQL = strSQL & "'" & Kon & "', "
strSQL = strSQL & "'" & Klan & "', "
strSQL = strSQL & "'" & Kappe & "', "
strSQL = strSQL & "'" & Hat & "', "
strSQL = strSQL & "'" & Sted & "', "
strSQL = strSQL & "" & Liv & ", "
strSQL = strSQL & "" & Angreb & ", "
strSQL = strSQL & "" & Solvsagl & ", "
strSQL = strSQL & "" & Exp & ", "
strSQL = strSQL & "" & Argang & ", "
strSQL = strSQL & "'" & Pengeibank & "', "
strSQL = strSQL & "'" & Fanget & "', "
strSQL = strSQL & "'" & Sidstfanget & "', "
strSQL = strSQL & "" & Forsvar & ", "
strSQL = strSQL & "'" & Ip & "', "
strSQL = strSQL & "" & Point & ")"

Conn.Execute(strSQL)

%>Du er nu overføret fra den gamle database til den nye.<%
Conn.Close
Set Conn = Nothing
else
%>Du er allerede overføret<%
end if

Conn.Close
set Conn = Nothing
%>
Der kommer ikke nogen fejl eller noget, den skriver bare "Siden kan ikke vises".

Hvad kan jeg ellers gøre???