I have attached the Error Message as a Word Doc so it can be viewed. I'm not sure if the Selection Formula is syntactically correct. I've also included the code that generates the report below:

Code:
    Public Sub TimeByProject(ByVal intMO As Integer, ByVal intYR As Integer)
        Try
            strModule = "modReporting"

            Dim crDOC As New rptTimeByProject
            Dim strSelectionFormula As String = ""

            crConnectionInfo = New ConnectionInfo

            With crConnectionInfo
                .ServerName = "ServerName"
                .DatabaseName = "SCTime"
                .IntegratedSecurity = True
            End With

            crDB = crDOC.Database
            crTables = crDB.Tables

            For Each crTable In crTables
                crTableLogOnInfo = crTable.LogOnInfo
                crTableLogOnInfo.ConnectionInfo = crConnectionInfo
                crTable.ApplyLogOnInfo(crTableLogOnInfo)
            Next

            frmReports.rptViewer.DisplayGroupTree = False
            strSelectionFormula = "month({tblTimeSheetDetail.beginPeriodDate}) = " & intMO & " AND year({tblTimeSheetDetail.beginPeriodDate}) = " & intYR
            crDOC.RecordSelectionFormula = strSelectionFormula
            frmReports.rptViewer.ReportSource = crDOC
            frmReports.ShowDialog()
            crDOC = Nothing

            crDB = Nothing
            crTables = Nothing
            crConnectionInfo = Nothing

        Catch ex As Exception

        End Try
    End Sub