using monthcalendar to query

Hello, I have a form called journal.vb, right now as it is, the btnSearch button is clicked and any records in the current month and year are displayed in a datagrid.  The field in the database I am using is called "pdate".  I have a monthcalendar named "monthcalendar1" I would like the user to be able to choose a date on the calendar, then either choose year, month, or week.  Of course I would no longer have a search button, just 3 buttons named year, month, and week.  If the date 12/03/2006 is selected on the calendar, and the user clicks year, all records with a pdate in 2006 will be shown, if they click month, all records with a pdate of december 2006 will be shown, and if week is clicked, all records with a pdate in that week will be shown.  Here is the code I am working with:

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim Da As OleDb.OleDbDataAdapter


        Try
            Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/backup/receiptprogram/receiptmanagement/receipt.mdb"
            Con.Open()
            Cmd.Connection = Con
        Catch ex As Exception
        End Try



        Try
            JournalDataSet.Clear()
            Cmd.CommandText = "SELECT * FROM Receiptinfo WHERE Month([pdate]) = Month(Now()) AND Year([pdate]) = Year(Now()) AND DatePart(ww,[pdate])=DatePart(ww,Now())"

            Cmd.CommandType = CommandType.Text
            Da = New OleDb.OleDbDataAdapter(Cmd)
            Datagridjournal.DataSource = JournalDataSet.Receiptinfo
            Da.Fill(JournalDataSet.Receiptinfo)

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
            Cmd.Connection = Nothing
        End Try
    End Sub