I created a form w/c allow the user to
choose the Beginning month and year, Ending month and ending year and used a
combo box. I have my query done and report done.

Here is the coding of my form

Function runreport(PrintMode As Integer)
Dim query As String
query = ""
query = "[DepositDate] between " + [Dbeginmonth] + "/1/" + [dbeginyear]
+ " and " + [dendmonth] + "/1/" + [dendyear]
MsgBox ("*" + query + "*")

stDocname = "DonationType"
DoCmd.OpenReport stDocname, PrintMode, , query

End Function

Everytime I preview my report it's giving me an error result but my report
was fine.