Comportamiento inusual Codigo se salta a otra form

[Highlander]

Hola tengo un codigo que no esta generando lo que deberia, por lo que lo revise ejecutandolo paso a paso en debugging y me di cuenta que en esta parte:

Código:

sql = "SELECT RECIPE_RECIPE.NDB_No_Con, RECIPE_RECIPE.Recipe_Can FROM RECIPE_RECIPE WHERE RECIPE_RECIPE.NDB_No_Recipe = " & Codigo
        Dim cmd3 As SqlCommand = New SqlCommand(sql, conexionSqlEx)
        Dim rs3 As SqlDataReader = cmd3.ExecuteReader()

        While rs3.Read


            'POR CADA SUBRECETA
            Dim CodigoSubReceta As String = rs3.GetOrdinal("NDB_No_Con")
            Dim CanSubReceta As Decimal = rs3.GetOrdinal("Recipe_Can")

            'Codigo y cantidad de subreceta
            CodigoSubReceta = rs3.GetString(CodigoSubReceta)
            CanSubReceta = rs3.GetDecimal(CanSubReceta)

            'OBTENGO LOS VALORES NUTRICIONALES DE LAS SUBRECETAS
            Dim GramosSubReceta As Decimal = (CanSubReceta * 100) / CanTotalIngrediente

            Dim sql4 As String = "SELECT RECIPE_NUT_DATA.NDB_No, RECIPE_NUT_DATA.NutrVal FROM RECIPE_NUT_DATA WHERE RECIPE_NUT_DATA.NDB_No = " & CodigoSubReceta
            Dim cmd4 As SqlCommand = New SqlCommand(sql4, conexionSqlEx)
            Dim rs4 As SqlDataReader = cmd4.ExecuteReader()

            'MsgBox(CodigoSubReceta)

        End While

Cuando llega a la linea que dice:

Dim GramosSubReceta As Decimal = (CanSubReceta * 100) / CanTotalIngrediente

Se va a otra form que tengo y ejecuta:

Private Sub MyDataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyDataGridView1.CellDoubleClick

y evidentemente ahí se va a las pailas ya que no continua ejecutando el código que debería.

Alguna idea porque se comporta así?