Ésto es lo que intento hacer:
Tengo un formulario para limpiar tablas , las elijo con cheks y limpia las marcadas:
On Error Resume Next
If Check1.Value = Checked Then
With Adodc1
.RecordSource = " delete * from billeteros"
End With
Adodc1.Refresh
End If
Así como esta arriba, cuando lo ejecuto...