selection formula error date help

i want to display all datas with the selected date im using calendar month
but it gives me an error

Conversion from string "{daily.daily_datemilled} = 4/17/" to type 'Date' is not valid.

and if i change

" Dim mySelectFormula As Date" to "Dim mySelectFormula As String" the erros is Date is required here

Code:

---

Private Sub cal_daily_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles cal_daily.DateSelected

        Dim s As Date = e.Start

        s = CType(s.ToShortDateString, Date)
        MsgBox(s)
     
        Dim mySelectFormula As Date = "{daily.daily_datemilled} = " & s
     
      Report.CrystalReportViewer1.SelectionFormula = mySelectFormula
        Report.CrystalReportViewer1.ReportSource = New CrystalReport5
        Report.CrystalReportViewer1.Zoom(75)
        Report.CrystalReportViewer1.Refresh()
        Report.CrystalReportViewer1.RefreshReport()
    End Sub

---

i already solve the first part using this code

Code:

---

mySelectFormula = "{daily.daily_datemilled} In DateValue ('" & s & "') To datevalue('" & s & "')"

---

but i want to add another field which is shift but it will return an error

Code:

---

mySelectFormula = "{daily.daily_datemilled} In DateValue ('" & s & "') To datevalue('" & s & "') and {daily.daily_shift} =" & cb_shift.Text

---

Quote:

---

Originally Posted by syntax101

but i want to add another field which is shift but it will return an error

---

What is the error?