List Box Selecting

Hi All,

I have a database that has route lists for drivers,
I have a combo box that lets the user select a route and a timescale
and with that data it populates the list box,,,

The list box displays
Route Period Month


Now then,
I need the database to be able to double click on the list box and for it to preview a reoprt,
but i can work out how to set querry criteria from that command

Private Sub LstBox_DblClick(Cancel As Integer)
On Error GoTo Err_LstBox_DblClick

Dim stDocName As String

stDocName = "Rpt_Route_MAIN"
DoCmd.OpenReport stDocName, acPreview

Exit_LstBox_DblClick:
Exit Sub

Err_LstBox_DblClick:
MsgBox Err.Description
Resume Exit_LstBox_DblClick

End Sub

I've got a query set up that supports the report the two fields that need to be trasmited to the criteria of the query are :
1. Route
2. Timescale