[مساعدة]

تفضل هذه المحاولة
لاحظت انك تعتمد على الاستعلام (جدول1_استعلام)

كود :

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

       Dim query As IEnumerable(Of adxDataSet.جدول1_استعلامRow) =
           AdxDataSet.جدول1_استعلام.
           Where(Function(x As adxDataSet.جدول1_استعلامRow) x.اسم_العميل.Equals(ComboBox1.Text) And
                     x.تاريخ >= DateTimePicker1.Value.Date And x.تاريخ <= DateTimePicker2.Value.Date)

       If query.Count > 0 Then
           Me.DataGridView1.DataSource = query.CopyToDataTable
       End If

   End Sub

---

بالنسبة للتقارير كل ما عليك ربط ناتج الاستعلام query بالتقرير مثل ما تم ربطه هنا مع الداتاجريدفيو