Föra över tabellinformation från en accessdatabas till en annan

' Anslut till inlästa databasen
Set Conn = New ADODB.Connection

With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & OpenFile & ";Jet OLEDB:Database;"
    .Open
End With

' Läs in poster
fraga = "SELECT [test1],[test2] FROM Test"
Rs.Open fraga, Conn, adOpenForwardOnly, adLockOptimistic

Do While Rs.EOF = False

    fraga = "INSERT INTO Ny_tabell ([Test1],[Test2]) VALUES (" & rs.fields("test1") & "," & rs.fields("test2") & ")"
    Rs2.Open fraga, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
    
    Rs.MoveNext
    
Loop

Conn.Close
Set Conn = Nothing