Error cuando cargo un formulario y en bd la fecha es null

[piolin85]

tengo un formulario que mando a llamar esta funcion cuando se carga el form, sin embargo me marca error por que la fecha esta null en bd como puedo capturar ese error y no truene el programa, este es mi metodo.

Código:

 Public Function ultimoMes()
        Try
            Using cn = New SqlConnection(ConfigurationManager.ConnectionStrings("cn").ToString())
                Dim cmd As SqlCommand = cn.CreateCommand
                cn.Open()
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add(New SqlParameter("@Contrato", txtnoContrato.Text))
                cmd.CommandText = "ultimoMesqPago"
                Dim da As New SqlDataAdapter(cmd)
                Dim dt As New DataTable
                da.SelectCommand = cmd
                da.Fill(dt)
                Dim reader As SqlDataReader
                reader = cmd.ExecuteReader()
                If reader.Read() Then
                    frmPdetalleRecibo.txtnoContrato.Text = reader.Item("noContrato")
                    frmPdetalleRecibo.dtUltimaFPago.Value = New Date(reader.Item("YFinal"), reader.Item("MesFinal"), 1) 'Aqui marca error
                    frmPdetalleRecibo.cbomes1.SelectedText = reader.Item("MesInicial")
                    frmPdetalleRecibo.cboaño1.SelectedText = reader.Item("YInicial")
                    frmPdetalleRecibo.cbomes2.SelectedText = reader.Item("MesFinal")
                    frmPdetalleRecibo.cboaño2.SelectedText = reader.Item("YFinal")

                End If
                cn.Close()

            End Using


        Catch ex As Exception


        End Try


    End Function

me marca este error

La conversión del tipo 'DBNull' en el tipo 'Integer' no es válida.

[Malenko]

Si en la base de datos tienes campos que pueden ser nullables, has de utilizar el DBNull antes de recuperar los valores.

[piolin85]

ok lo checarè