CODICE:

Sub Duplica Recordset()

Dim rstDuplicato as string

Dim rstOriginale as string

Dim TipoBlocco as string

TipoBlocco = adLockUnspecified 'Clone creato con lo stesso tipo di blocco dell'originale

TipoBlocco = adLockReadOnly 'Clone di sola lettura

Set rstDuplicato = rstOriginale.Clone (TipoBlocco)

End Sub


CONDIZIONI:

- I due database devono avere la stessa struttura
- Scegliere una delle due stringhe TipoBlocco

Spero funzioni...ciao