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:
codice:
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