Dim Sum1 As Integer = DataTables("person").Compute("Count(cardID)","organName = '" & _UserOrgan & "'")