Dim ab As String
ab = dt.Rows(i)("Gender").ToString()
If ab = "Male" Then
txtfemale.Text = Integer.Parse(txtfemale.Text) + 1
ElseIf ab = "Female" Then
txtmale.Text = Integer.Parse(txtmale.Text) + 1
End If
Next
txttotal.Text = Integer.Parse(txtfemale.Text) + Integer.Parse(txtmale.Text)