"INSERT INTO" da Access a SQL Server

[gaetano73]

Ciao a tutti.

Uso Access 2010 e SQL Server 2005.

In un DB Access ho implementato il seguente codice (al caricamento di una maschera) per far si che i record estratti da una query di Access vengano accodati in una tabella su Server SQL:

Private Sub Form_Load()

' ************************* Connessione al DB (corrente) Access 
Dim conn_locale As Object
    Set conn_locale = CreateObject("ADODB.Connection")

    Dim rs_locale As Object
    Set rs_locale = CreateObject("ADODB.Recordset")

    Set conn_locale = CurrentProject.Connection

    rs_locale.Open "SELECT * FROM 0_PIVA_Large WHERE Etichetta = 'LargeEnel'", conn_locale, 3, 1

' ************************* Connessione al DB su Server SQL 
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")

    conn.ConnectionString = "... stringa di connessione al DB su SERVER SQL..."

    conn.Open
     
        stSQL = "INSERT INTO dbo.Wip_Case (ID_Cliente)"
        stSQL = stSQL & " SELECT "
        stSQL = stSQL & "('"
        stSQL = stSQL & rs_locale.Fields("ID_Cliente")
        stSQL = stSQL & "')"
        stSQL = stSQL & " FROM "
        stSQL = stSQL & "rs_locale"

        conn.Execute stSQL

    rs_locale.Close
    Set rs_locale = Nothing
    conn.Close
    Set conn = Nothing
    DoCmd.Quit acExit
End Sub

Quando questo codice viene eseguito mi viene restituito l'errore Nome oggetto "rs_locale" non valido.

Dove sbaglio?

Grazie

[optime]

Riga dell'errore?

[gaetano73]

La riga di codice evidenziata dal debugger è

conn.Execute stSQL

L'errore è il seguente:

Errore di run-time '-2147217865 (80040e37)':
Il nome di oggetto 'rs_locale' non è valido.

Grazie