How To Count The Records In A Datatable

I have the following:
        Dim ResourceAdapter As New ResourcesTableAdapters.ResourcesTableAdapter
        Dim dF As Data.DataTable = ResourceAdapter.GetDataByDistinct
        Dim numRows = dF.Rows.Count
        Dim dS As Data.DataTable = ResourceAdapter.CountQuery
        Dim sumRows = dS.Rows.Count
        DataList1.DataSource = dF
        DataList1.DataBind()
        LblCount.Text = numRows
        LblSum.Text = sumRows
   
numRows is the number of records in a particular category.  CountQuery is a method that returns the total number of records in all the categories.   I don't know how to get the result of that query, the code line in bold isn't right.  How do I get this number?
Diane