The code below is currently checking for 6 categories and returning a count of each present based on one month for a given year. I would like to be able to do this for all 12 months for a given year. It seems to me that there should be a way to populate the DataSet so that each iteration would create a new row and populate the appropriate column. Please advise if there is a way to do this and if so, how. Please be specific. See existing code below.<BR><BR> While intCount <= 12<BR> dim strStartS = strStartMonth(intCount,strYear)<BR> dim strEndS = strEndMonth(intCount,strYear)<BR> <BR> Dim objCat1 As New SqlDataAdapter("select count (*) as lblCatCount from tblInterviewer where strCategory = 'Professional' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn)<BR> Dim objCat2 As New SqlDataAdapter("select count (*) as lblCatCount2 from tblInterviewer where strCategory = 'Service' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn) <BR> Dim objCat3 As New SqlDataAdapter("select count (*) as lblCatCount3 from tblInterviewer where strCategory = 'Clerical' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn)<BR> Dim objCat4 As New SqlDataAdapter("select count (*) as lblCatCount4 from tblInterviewer where strCategory = 'Technical' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn)<BR> Dim objCat5 As New SqlDataAdapter("select count (*) as lblCatCount5 from tblInterviewer where strCategory = 'Maintenance' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn)<BR> Dim objCat6 As New SqlDataAdapter("select count (*) as lblCatCount6 from tblInterviewer where strCategory = 'Info Tech' and strIntDate between '" & strStartS & "' And '" & strEndS & "'", Conn)<BR> <BR> 'Dim dsCount as DataSet = new DataSet()<BR> 'objCat1.Fill(dsCount, "tblInterviewer")<BR> 'If Not dsCount.Tables("tblInterviewer").DefaultView(0)("l blCatCount") is System.DbNull.value then<BR> ' lblCatCount.Text = dsCount.Tables("tblInterviewer").DefaultView(0)("l blCatCount")<BR> 'Else<BR> ' lblCatCount.text = 0<BR> 'End If <BR> <BR> 'objCat2.Fill(dsCount, "tblInterviewer2")<BR> 'If Not dsCount.Tables("tblInterviewer2").DefaultView(0)(" lblCatCount2") is System.DbNull.value then<BR> ' lblCatCount2.Text = dsCount.Tables("tblInterviewer2").DefaultView(0)(" lblCatCount2")<BR> 'Else<BR> ' lblCatCount2.text = 0<BR> 'End If <BR> <BR> 'objCat3.Fill(dsCount, "tblInterviewer3")<BR> 'If Not dsCount.Tables("tblInterviewer3").DefaultView(0)(" lblCatCount3") is System.DbNull.value then<BR> ' lblCatCount3.Text = dsCount.Tables("tblInterviewer3").DefaultView(0)(" lblCatCount3")<BR> 'Else<BR> ' lblCatCount3.text = 0<BR> 'End If <BR> <BR> 'objCat4.Fill(dsCount, "tblInterviewer4")<BR> 'If Not dsCount.Tables("tblInterviewer4").DefaultView(0)(" lblCatCount4") is System.DbNull.value then<BR> ' lblCatCount4.Text = dsCount.Tables("tblInterviewer4").DefaultView(0)(" lblCatCount4")<BR> 'Else<BR> ' lblCatCount4.text = 0<BR> 'End If <BR> <BR> 'objCat5.Fill(dsCount, "tblInterviewer5")<BR> 'If Not dsCount.Tables("tblInterviewer5").DefaultView(0)(" lblCatCount5") is System.DbNull.value then<BR> ' lblCatCount5.Text = dsCount.Tables("tblInterviewer5").DefaultView(0)(" lblCatCount5")<BR> 'Else<BR> ' lblCatCount5.text = 0<BR> 'End If <BR> <BR> 'objCat6.Fill(dsCount, "tblInterviewer6")<BR> 'If Not dsCount.Tables("tblInterviewer6").DefaultView(0)(" lblCatCount6") is System.DbNull.value then<BR> ' lblCatCount6.Text = dsCount.Tables("tblInterviewer6").DefaultView(0)(" lblCatCount6")<BR> 'Else<BR> ' lblCatCount6.text = 0<BR> 'End If<BR> <BR> intCount = intCount + 1 <BR> End While