If Não reconhecido

Boa tarde a todos … estou com o seguinte problema, não importa o valor que coloque numa variável ela está descartando um if, como se a linha do if não existisse
e qndo forço a passar pelo if aparece o seguinte erro:

unable to set the next statement to this location. The next statement cannot be set because the current assembly is optimized.

Alguém poderia me ajudar??

Mostra o código completo pfvr…

Public Function IncluirItem() As Boolean
    'Método de insert
    Try
        Dim cmd As Object
        cmd = conect.getCommand
        Dim LstrSQL As String
        Dim _nullData As Date = Nothing

        cmd.Parameters.Add("MlngCdItem", MlngCdItem)
        cmd.Parameters.Add("MstrDcItem", MstrDcItem)
        cmd.Parameters.Add("MstrTpMerc", MstrTpMerc)
        cmd.Parameters.Add("MlngTpItem", MlngTpItem)

        If MstrDtIniEmissao.HasValue Then
            'If Not IsNothing(MstrDtIniEmissao) Then
            cmd.Parameters.Add("MstrDtIniEmissao", MstrDtIniEmissao)
        End If

        If MstrDtFimEmissao.HasValue Then
            cmd.Parameters.Add("MstrDtFimEmissao", MstrDtFimEmissao)
        End If

        If MstrDtIniVcto.HasValue Then
            cmd.Parameters.Add("MstrDtIniVcto", MstrDtIniVcto)
        End If

        If MstrDtFimVcto.HasValue Then
            cmd.Parameters.Add("MstrDtFimVcto", MstrDtFimVcto)
        End If

        If MstrDtIniOper.HasValue Then
            cmd.Parameters.Add("MstrDtIniOper", MstrDtIniOper)
        End If

        If MstrDtFimOper.HasValue Then
            cmd.Parameters.Add("MstrDtFimOper", MstrDtFimOper)
        End If

        cmd.Parameters.Add("MlngCdSeto", MlngCdSeto)
        cmd.Parameters.Add("MlngTpEmissor", MlngTpEmissor)
        cmd.Parameters.Add("MlngCdEmissor", MlngCdEmissor)
        cmd.Parameters.Add("MstrTpRenda", MstrTpRenda)
        cmd.Parameters.Add("MlngIdIndice", MlngIdIndice)
        cmd.Parameters.Add("MlngCdClasseRF", MlngCdClasseRF)
        cmd.Parameters.Add("MstrCdClasseBMF", MstrCdClasseBMF)
        cmd.Parameters.Add("MlngCdClasseFAQ", MlngCdClasseFAQ)
        cmd.Parameters.Add("MlngIdInst", MlngIdInst)
        cmd.Parameters.Add("MstrFgCompromisso", MstrFgCompromisso)
        cmd.Parameters.Add("MstrTpAtivoRF", MstrTpAtivoRF)
        cmd.Parameters.Add("MlngCdAtivo", MlngCdAtivo)
        cmd.Parameters.Add("MintTpEmprestimo", MintTpEmprestimo)
        cmd.Parameters.Add("MstrAcoesVedadas", MstrAcoesVedadas)
        cmd.Parameters.Add("MstrTpPosicao", MstrTpPosicao)
        cmd.Parameters.Add("MstrTpControle", MstrTpControle)
        cmd.Parameters.Add("MstrFgAutorizado", MstrFgAutorizado)
        cmd.Parameters.Add("MstrFgDerivFut", MstrFgDerivFut)
        cmd.Parameters.Add("MstrFgDerivTer", MstrFgDerivTer)
        cmd.Parameters.Add("MstrFgDerivOpc", MstrFgDerivOpc)
        cmd.Parameters.Add("MstrFgDerivOpcFut", MstrFgDerivOpcFut)
        cmd.Parameters.Add("MstrCdFaqs", MstrCdFaqs)
        cmd.Parameters.Add("MstrFgCobertura", MstrFgCobertura)
        cmd.Parameters.Add("MstrFgDerivFLX", MstrFgDerivFLX)
        cmd.Parameters.Add("MstrFgDerivSWP", MstrFgDerivSWP)
        cmd.Parameters.Add("MstrFgDerivTMC", MstrFgDerivTMC)

        LstrSQL = " INSERT INTO T_Tabela ("
        Call fgAddSQL(LstrSQL, " enqu_cd_item ")
        Call fgAddSQL(LstrSQL, ",enqu_dc_item ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_merc ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_item ")

        If MstrDtIniEmissao.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_ini_emissao ")
        End If

        If MstrDtFimEmissao.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_fim_emissao ")
        End If

        If MstrDtIniVcto.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_ini_vcto ")
        End If

        If MstrDtFimVcto.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_fim_vcto ")
        End If

        If MstrDtIniOper.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_ini_oper ")
        End If

        If MstrDtFimOper.HasValue Then
            Call fgAddSQL(LstrSQL, ",enqu_dt_fim_oper ")
        End If

        Call fgAddSQL(LstrSQL, ",seto_cd_setor ")
        Call fgAddSQL(LstrSQL, ",emis_tp_emissor ")
        Call fgAddSQL(LstrSQL, ",emis_cd_emissor ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_renda ")
        Call fgAddSQL(LstrSQL, ",indi_id_indice ")
        Call fgAddSQL(LstrSQL, ",enqu_cd_classe_rf ")
        Call fgAddSQL(LstrSQL, ",enqu_cd_classe_bmf ")
        Call fgAddSQL(LstrSQL, ",enqu_cd_classe_faq ")
        Call fgAddSQL(LstrSQL, ",inst_id_inst ")
        Call fgAddSQL(LstrSQL, ",enqu_fg_compromisso ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_ativo_RF ")
        Call fgAddSQL(LstrSQL, ",enqu_cd_ativo ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_emprestimo ")
        Call fgAddSQL(LstrSQL, ",enqu_acoes_vedadas ")
        Call fgAddSQL(LstrSQL, ",enqu_tp_posicao ")
        Call fgAddSQL(LstrSQL, ",enqu_emissor_controle ")
        Call fgAddSQL(LstrSQL, ",enqu_emissor_autorizado ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_fut ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_ter ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_opc ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_opcFut ")
        Call fgAddSQL(LstrSQL, ",enqu_cart_faq ")
        Call fgAddSQL(LstrSQL, ",enqu_fg_cobertura ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_flx ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_swp ")
        Call fgAddSQL(LstrSQL, ",enqu_deriv_tmc ")
        Call fgAddSQL(LstrSQL, ") VALUES ( ")
        Call fgAddSQL(LstrSQL, VP & "MlngCdItem")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrDcItem")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrTpMerc")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngTpItem")

        If MstrDtIniEmissao.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniEmissao")
        End If

        If MstrDtFimEmissao.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimEmissao")
        End If

        If MstrDtIniVcto.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniVcto")
        End If

        If MstrDtFimVcto.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimVcto")
        End If

        If MstrDtIniOper.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniOper")
        End If

        If MstrDtFimOper.HasValue Then
            Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimOper")
        End If

        Call fgAddSQL(LstrSQL, "," & VP & "MlngCdSeto")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngTpEmissor")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngCdEmissor")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrTpRenda")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngIdIndice")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngCdClasseRF")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrCdClasseBMF")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngCdClasseFAQ")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngIdInst")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgCompromisso")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrTpAtivoRF")
        Call fgAddSQL(LstrSQL, "," & VP & "MlngCdAtivo")
        Call fgAddSQL(LstrSQL, "," & VP & "MintTpEmprestimo")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrAcoesVedadas")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrTpPosicao")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrTpControle")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgAutorizado")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivFut")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivTer")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivOpc")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivOpcFut")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrCdFaqs")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgCobertura")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivFLX")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivSWP")
        Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivTMC")
        Call fgAddSQL(LstrSQL, ")")

        cmd.CommandText = LstrSQL
        Return conect.execSql(cmd)

    Catch ex As Exception
        Throw ex
    End Try

End Function