Visual Basic - PROBLEMA AL BORRAR CON SQL

MI PROBLEMA KONSISTE EN KE TENGO UN BOTON DONDE MANDO EJEKUTAR UN COMANDO SQL PARA ELIMINAR UN REGISTRO EN ESPECIAL...PERO AL EJECUTARSE ESTA INSTRUCCION EL PROGRAMA ME MANDA EL MENSAJE DE "TIME OUT EXPIRED"...KURIOSAMENTE ANTES FUNCIONABA SIN PROBLEMAS....SI SABEN KE PUEDE SER...MANDEME UNA RESPUESTA

GRACIAS...

pd: TENGO OTRO FORMULARIO DONDE USO EL MISMO BOTON...KON LAS MISMAS INSTRUCCIONES Y SI FUNCIONA...SI ELIMINA...PERO EN LA INFORMACION KE TENGO EN PANTALLA ME SIGUE MOSTRANDO EL REGISTRO...ESTO HASTA KE CIERRO Y VUELVO A ABRIR EL FORMULARIO....ENTONCES YA NO ME MUESTRA EL REGISTRO....muy raro?????.....

Utiliza la instruccion
rs.Sort = " "
Set rs.ActiveConnection = cn
If rs.State = adStateClosed Then rs.Open
rs.Requery
Saludos desde LIma