Se requiere un objeto

Me podrías explicar porque me sale "se requiere un objeto " con este código
Que hago mal, quiero borrar todos los registros de la tabla "xdiario"
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
adoR1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\reparaciones.mdb"
adoR1.RecordSource = "select * from xdiario"
adoR1.Refresh
adoR1.Recordset.MoveFirst
While adoR1.Recordset.EOF = False
adoR1.Recordset.Delete
adoR1.Recordset.MoveNext
Wend
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Saludos

1 Respuesta

Respuesta
1
Puede ser porque ya has borrado todos los registros e intenta borrar nuevamente.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas