Date to Date Printing in VB6

[tezmin]

Dim rs As New ADODB.Recordset 
 
Private Sub Command1_Click() 
Me.CrystalReport1.DataFiles(0) = App.Path & "\Database.mdb" 
Me.CrystalReport1.ReportFileName = App.Path & "\Reports\BRYeild.rpt" 
Me.CrystalReport1.SelectionFormula = "{NewJob.strShipmentType}='" & Combo1.Text & "' and {NewJob.Date}>=#" & MaskEdBox1.Text & "# and {NewJob.Date} <=#" & MaskEdBox2.Text & "#" 
Me.CrystalReport1.WindowState = crptMaximized 
Me.CrystalReport1.Action = 1 
End Sub 
 
 
Private Sub Form_Load() 
Call datafun 
If rs.State = 1 Then rs.Close 
rs.Open "Select * from NewJob", db, adOpenDynamic, adLockOptimistic 
End Sub

This Is My Code
It's Not Working Well Need Help To Fix My Formula.
It's Pick The End Date
But Not Pick The Starting Date

Pls Help Me