Public Function getPoint(Region, Country, Item, Period)
            Dim strsql  As String
            strsql = "select sum(Revenue) from tblX where "
            If Trim(Region) <> "" Then
                strsql = strsql & "Region = """ & Region & """ AND"
            End If
            If Trim(Country) <> "" Then
                strsql = strsql & " Country = """ & Country & """ AND"
            End If
            If Trim(Item) <> "" Then
                strsql = strsql & " Item = """ & Item & """ AND"
            End If
            If Trim(Period) <> "" Then
                strsql = strsql & " Period = """ & Period & """ AND"
            End If
            
            strsql = Left(strsql, Len(strsql) - 4)
           
            getPoint = CurrentDb.OpenRecordset(strsql).Fields(0).Value

End Function