I am rewriting your code :
'Dim row As Cutco_testDataSet.DemosRow
'Dim intTotalItems As Integer
'For Each row In Cutco_testDataSet.Demos.Rows
' intTotalItems += 1
'Next
'No need to use above "for loop" for counting total rows.
lblTotalItems.Text = Cutco_testDataSet.Demos.Rows.Count
'Declare the variables for the values to be stored and later displayed
Dim intTotalCPO As Integer
Dim intTotalRecs As Integer
dim intTotdemosgiven as Integer
'to look in Demosdgv and add the corresponding data
'For i As Integer = 0 To Cutco_testDataSet.Tables(0).Rows.Count - 1
For Each row as Datarow in Cutco_testDataSet.Tables(0).Rows
intTotalCPO += NullToZero(row("CPO"))
intTotalRecs += NullToZero(row("Rec's"))
intTotdemosgiven = intTotdemosgiven + IIf(UCase(nulltostring(row("DemosGiven"))) = "YES", 1, 0) 'I dont know exact field name for Demos given.
Next
lblTotalCpo.Text = intTotalCPO.ToString("c0")
lblTotalRecs.Text = intTotalRecs.ToString()
Public Function NullToZero(ByRef FieldVal) As Double
'This function converts null or blank values to zero.
If FieldVal Is Nothing OrElse FieldVal.ToString() = vbNullString Then
Return 0
Else
Return FieldVal
End If
End Function
Public Function NullToString(ByRef FieldVal) As String
If FieldVal Is Nothing OrElse IsDBNull(FieldVal) Then
Return vbNullString
Else
Return FieldVal
End If
End Function
Hope this helps