Problema con Thread, alto consumo CPU

Hola a todos,

tengo una aplicación que recibe requerimientos mediante una conexion TCP y
levanta un hilo por cada requerimiento, por cada uno de estos se realiza una
consulta a una BD (muy simple)


Dim hiloejecucion As New Threading.ThreadStart(AddressOf
ConsultaBD)
Dim HiloPrincipal As New Threading.Thread(hiloejecucion)
HiloPrincipal.Priority = Threading.ThreadPriority.Normal
HiloPrincipal.Start()

Ahora el problema se presenta de forma aleatoria (no antes de 3 o 4 horas) y
resulta que un hilo comienza a comer CPU y luego de un largo rato desaparece
(los hilos generalmente mueren rapidamente), lo que provoca que la maquina
baje el desempeño considerablemente, el codigo de la consulta es muy simple
por lo que no lo pongo acá.

Que puedo realizar para intentar detectar el problema? que me recomiendan?

Gracias por su tiempo