‘==========================================PublicSub Copiar_Tabla_Access()Dim oConexion As ADODB.ConnectionDim rsTabla As ADODB.RecordsetDim sNombreTabla As StringDim sNombreAccess As StringDim i As Integer