Estás utilizando un navegador desactualizado. Puede que no muestre este u otros sitios web correctamente Deberías actualizar o utilizar un navegador alternativo.
On Error Resume Next
If Check1.Value = Checked Then
With Adodc1
if .close then .open
.RecordSource = " delete * from billeteros"
endif
End With
Adodc1.Refresh
End If