รบกวนหน่อยครับผมต้องการออก รายงานตามวันที่่่ ต้องทำยังไงบ้างครับ ฐานข้อมูล sqlserver

  .Parameters.Add("@add_date", SqlDbType.Date).Value = Date.Today.ToString("dd/MM/yyyy")

 Dim seStr As String = "select DISTINCT add_date from Gropby_head "
            Dim cmd As New SqlCommand(seStr, con)
            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader
            While dr.Read
                ComboBox1.Items.Add(dr("add_date"))<---วันที่ออกมาไม่เหมือนฐานข้อมูลคับ ในฐานข้อมูล เป็น 2011-10-10 แต่ออกมาเป็น 10/10/2554  เลยเรียกรายงานไม่ได้ครับ
            End While
            dr.Close()

 Dim TL As TableLogOnInfo = CrystalReport11.Database.Tables(0).LogOnInfo
        TL.ConnectionInfo.ServerName = "ITSERVER\SQL2008"
        TL.ConnectionInfo.DatabaseName = "BaseEvent"
        TL.ConnectionInfo.UserID = "sa"
        TL.ConnectionInfo.Password = "sql2008"
        CrystalReport11.Database.Tables(0).ApplyLogOnInfo(TL)
        CrystalReport11.Refresh()
        CrystalReport11.RecordSelectionFormula = "{Gropby_head.add_date}='" + ComboBox1.Text + "'"
        CrystalReportViewer1.ReportSource = CrystalReport11

 Try
            sb.Remove(0, sb.Length)
            sb.Append("SELECT*FROM Gropby_head WHERE add_date=@add_date")
            Dim sqlingoods As String = sb.ToString()
            Dim dr As SqlDataReader
            com = New SqlCommand
            With com
                .CommandType = CommandType.Text
                .CommandText = sqlingoods
                .Connection = con
                .Parameters.Clear()
                .Parameters.Add("@add_date", SqlDbType.Date).Value = ComboBox2.Text.Trim()
                dr = .ExecuteReader()
                If dr.HasRows Then
                    dt = New DataTable
                    dt.Load(dr)
                    Report1.SetDataSource(dt)
                    CrystalReportViewer1.ReportSource = Report1
                Else
                    MessageBox.Show("ไม่พบข้อมูล", "รายงานความผิดผลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Me.Close()
                End If
                dr.Close()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try