Open Report With Date Parameters

I need the following report to open with date parameters. I have the following code, but it doesn't quite work.

When an item is chosen from Modl (a list box) a box pops up asking for LowPop, then another for Start Year and then another for End Year.

Those last two aren't doing what they should. They should restrice the [Date] field to between the years entered as start and end. I would like to put it in the "OpenReport" line, but don't think that's going to work.

Code:
Private Sub Command27_Click()
Dim varItm As Variant
Dim ModelWhere As String
Dim strQuery
Dim LowPop As String
Dim SDate As Date

[Code] .....