[Anas Mahmoud]

قاعدة البيانات من نوع اكسس لذلك عدلت الاستعلام ليناسب قاعدة البيانات

كود :

   Sub ff()
       Dim query As String = "SELECT * FROM TBLithem
                             WHERE    DateValue(EXPDAT) <= DateValue(DATEADD('d',90, now()))
                             AND    DateValue(EXPDAT) >= DateValue(now())"

       Dim cmd As New OleDbCommand(query, Con)
       Dim da As New OleDbDataAdapter(cmd)
       Dim dt As New DataTable

       Dim RowCount As Integer

       Con.Open()

       RowCount = da.Fill(dt)

       Con.Close()

       If RowCount > 0 Then

           'عرض تفاصيل الوثائق
           DataGridView1.DataSource = dt

       End If
   End Sub