[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخي خالد لديك قيمتان للتاريخ D1 -D2 لكنك لم تسند من اين تأخذ كل واحدة قيمتها 

يفترض تعريفهما كقيمتين تاريخ وتأخذ كل واحدة القيمة من مربع ادخال اليك الكود

 (غير اسماء مربعات النص الى التي تدخل فيها التواريخ عندك)

كود :

End Try
       Try
           Dim D1 As Date = CDate(TextBox1.Text).ToString("yyyy/MM/dd") 'القيمة الاولى مربع نص 1
           Dim D2 As Date = CDate(TextBox2.Text).ToString("yyyy/MM/dd") 'القيمة الثانية مربع نص2

           Dim dt1 As New DataTable
           Dim da = New OleDbDataAdapter("select kaznadate, kaznadics, chareg, dischareg  from kazna where kaznadate between #" & D1 & "# and #" & D2 & "#", con)
           da.Fill(dt1)
           DGVKAZNA.DataSource = dt1
       Catch ex As Exception
       End Try