جمع یک ستون از دیتابیس و نمایش در لیبل

[Fery666]

سلام دوستان .

من با این کد یه ستون از جدول رو جمع می کنم .
ولی وقتی مقدار عدد بالا باشه خطا میده .
باید چکاری انجام بدم ؟

 con.Open()

        DS = New DataSet

        DV = New DataView

        strsql = "Select Mablagh From tblJozeeyat Where Nam Like '%" & CB_moshtari.Text & "%'"

        DA = New OleDbDataAdapter(strsql, con)

        DS.Clear()

        DA.Fill(DS, "tblJozeeyat")

        DV = DS.Tables("tblJozeeyat").DefaultView

        Dim DR As DataRow = DV.Table.NewRow

        DR(0) = DV.Table.Compute("SUM(Mablagh)", "")

        mand = DR(0).ToString

        con.Close()