Set Prueba = Nothing[/color]
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. "_&
"Where ......",.......
Set Prueba = Nothing
Set Prueba = Nothing[/color]
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. "_&
"Where ......",.......
Set Prueba = Nothing
Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Where ......",.......
Set Prueba = Nothing
Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Where ......",.......
Set Prueba = Nothing
Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Where ......",.......
Set Prueba = Nothing
UPDATE Nombre_tabla SET Nombre_campo=Expresion1, Nombre_campo=expresión2,..., Nombre_campo=expresiónN WHERE Nombre_campo=Condición_de_búsqueda