scalar procedimiento

Hola No he podido mejorar este procedimiento; ya le cree indices a todos los campos que utiliza la clausula WHERE ,se cambie el operador ( = ) por LIKE. En la tabla Trn_Vencimientos hay mas o menos 250000 registros, y en Trn_RecFactura hay unos ...

declarar variable escalar\n\nDim rr As Integer\nTry\n\' Creamos el comando\nDim cmd As New SqlCommand()\n\' Indicamos la consulta T-SQL con parámetros que vamos a ejecutar\ncmd.CommandText = "SELECT cod_familia FROM FAMILIA WHERE ...