tarea ejecutada

Gracias por leer esta duda... Tengo una aplicacion en .net que se me conecta a sqlserver 2000, en la conexion desde .net tengo un timeout de 30 segundo, quiero saber si por ejemplo una consulta o proceso que se me demore mas de 30 seg y yo capturo ...

Private Sub CommandButton12_Click() Dim wksH As Worksheet Dim mtr(), n For Each wksH In Worksheets If Left(wksH.Name, 6) = "Acción" Then n = n + 1 ReDim Preserve mtr(1 To n) mtr(n) = wksH.Name End If Next ...