SoloCodigo

 parece ser que el link o el servidor no funcionan. saludos

Sí pero a mi juicio el codigo anterior es antieficiente porque se tarda demasiado, si estas conectado a un servidor es mas facil, que ejecutes lo siguiente

private sub borradoVer3()
      dim cn as adodb.connection
      set cn = myForm.adodc1.recordset.activeconection
      cn.execute "delete from table"
      set cn = nothing
      ' nothing more to do , thanks.


end sub

saludos.

Roberto.