Optæling af samlet antal kroner fra rækker i et datagrid

Jeg skal lægge tallene fra felterne i en kolonne sammen så de giver en total sum.
jeg har prøvet med følgende kode.


        Dim progkr As Integer
        Dim progtimer As Integer
        Dim aktuelkr As Integer
        Dim aktueltimer As Integer
        Dim i, y, o, u As Integer
        afdelingid = DropDownList1.SelectedValue
        Dim adapter As New OleDbDataAdapter("select aktivitetid,afdelingid,kortnavn,progn_kr,progn_timer,sum_kr,sum_timer from view_status_afdeling where afdelingid = " & afdelingid, forbindelse)
        Dim resultat As New DataSet
        adapter.Fill(resultat, "view_status_afdeling")
        DataGrid1.DataSource = resultat.Tables("view_status_afdeling").DefaultView
        DataGrid1.DataBind()

        Try
            For i = 0 To resultat.Tables(0).Rows.Count() - 1
                progkr = progkr + resultat.Tables(0).Rows(i).Item(3)
            Next
            Label6.Text = progkr
        Catch ex As InvalidCastException
            Label6.Text = 0
        End Try

        Try
            For y = 0 To resultat.Tables(0).Rows.Count() - 1
                progtimer = progtimer + resultat.Tables(0).Rows(y).Item(4)
            Next

            Label4.Text = progtimer
        Catch ex As InvalidCastException
            Label4.Text = 0
        End Try

        Try
            For o = 0 To resultat.Tables(0).Rows.Count() - 1
                aktuelkr = aktuelkr + resultat.Tables(0).Rows(o).Item(5)
            Next

            Label10.Text = aktuelkr
        Catch ex As InvalidCastException
            Label10.Text = 0
        End Try

        Try
            For u = 0 To resultat.Tables(0).Rows.Count() - 1
                aktueltimer = aktueltimer + resultat.Tables(0).Rows(u).Item(6)
            Next

            Label8.Text = aktueltimer
        Catch ex As InvalidCastException
            Label8.Text = 0
        End Try

jeg forstår ikke hvorfor den ikke går alle rækkerne igennem.
Kan nogen hjælpe mig