Visual Basic - error 3704 objeto está cerrado

fecha1 = InputBox("Ingrese la fecha", "Carga de fecha")
texto = "UPDATE asistencia SET fecha = " & _
"DateValue('" + fecha1 + "')" & _
"where fecha is null"
Adodc1.RecordSource = texto
Adodc1.Recordset.Update
Adodc1.Refresh

funciona pero da error en .refresh, no le gusta update del sql.

Otro que cree que los Recordsets son para inserciones, actualizaciones y borrados, NO MI AMIGO, ESO NO ES RECOMENDABLE, para eso tenemos a disposición los objetos Command o el mismo Connection, con una función Execute, los recordsets si lees un poco por ahí, son para consultas de datos, o sea, son tuplas de información, es en ellos que puede servir un refresh o en su defecto el requery.

Otra cosa muy importante, aprende a manejar los datos por código, pues los componentes no son muy enficientes que digamos, te lo digo yo que nunca he logrado prohesas con ADODC, sino que con código puro.

Ok, Entiendo, Gracias Esteban, si me podés dar un ejemplo con el Command y otro con e Execute te agradecería mucho.

Con gusto te doy el ejemplo, pero hay muchos en internet, además no soy de dar códigos por lo mismo, pero esta es una excepción, pero que no se te haga costumbre, yo soy un generador de ideas, no un santa clouse de programas, jejejeje...

Set vmoComando = CreateObject("ADODB.Command")
'Realiza la conexión con la base de datos
If vmb_Conectado Then
Set vmoComando.ActiveConnection = vmoConexion
Else
vmoComando.ActiveConnection = vms_Conexion
End If
'Se asigna el script a ejecutar
vmoComando.CommandText = vms_SQL
'Se especifica que el comando a ejecturar es de tipo texto
vmoComando.CommandType = 1
'Ejecuta el script
vmoComando.Execute prRegistrosAfectados
'Destruye el objeto que está en memoria
Set vmoComando = Nothing