Здравствуйте мне нужна помощь с этим кодом

---

Здравствуйте, мне нужна помощь с этим кодом он работает все, но нужно нажать кнопку 2 А. Тиме, чтобы получить точно данные я вам все данные, и после, когда я нажимаю кнопку, я получаю то, что хочу, как исправить в один клик получить некоторые сведения

Что я уже пробовал:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim con As New SqlConnection
    Dim ds As New DataSet1
    Dim ad As New DataSet1TableAdapters.TabRestorantTableAdapter
    ad.Fill(ds.TabRestorant)
    Dim rpt As New KontrataShqip
    rpt.SetDataSource(ds)
    Form2.CrystalReportViewer1.ReportSource = rpt
    Form2.ShowDialog()
    Form2.Dispose()

    con.ConnectionString = ""
    con.Open()
    Dim da As New SqlDataAdapter("SELECT * FROM TabRestorant where [DataDasmes]='" + DateTimePicker1.Text + "' and [Restoranti]='" + ComboBox1.Text + "' ", con)
    da.Fill(DS)
    Form2.CrystalReportViewer1.RefreshReport()
    Form2.CrystalReportViewer1.SelectionFormula = "{TabRestorant.DataDasmes}='" + DateTimePicker1.Text + "' and {TabRestorant.Restoranti}='" + ComboBox1.Text + "'"
    Form2.CrystalReportViewer1.RefreshReport()

    con.Close()

End Sub

---