Hey Ken ,, Thanks for your quick response.. PFB my small select case code..
Private Sub View_Click()
Dim StrMon, StrQry As String
StrMon = [Forms]![Month]![MonthCMB].[Value]
MsgBox StrMon
Select Case StrMon
Case "Jan"
StrQry = "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Sum(Software.Jan) AS SumOfJan FROM Software GROUP BY Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager];"
Case "Feb"
StrQry = "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Sum(Software.Feb) AS SumOfFeb FROM Software GROUP BY Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager];"
Case "Mar"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Mar FROM Software;"
Case "Apr"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Apr FROM Software;"
Case "May"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.May FROM Software;"
Case "Jun"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Jun FROM Software;"
Case "Jul"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Jul FROM Software;"
Case "Aug"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Aug FROM Software;"
Case "Sep"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Sep FROM Software;"
Case "Oct"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Oct FROM Software;"
Case "Nov"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Nov FROM Software;"
Case "Dec"
DoCmd.OpenQuery "SELECT Software.BXG_Desc, Software.Application, Software.Vendor_Name_Normalized, Software.[Product/Expense Desc], Software.[Project Manager], Software.Dec FROM Software;"
Case Else
MsgBox " Didnt find a match"
End Select
End Sub