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

اخي محمد
اليك راس الخيط اريدك ان تكتب اكوادك بنفسك 

كود :

  Dim dd As Date = Now
   Dim kk As Integer = Val(textbox1.text) ' احعل هذا المتغير لوضع عدد الايام الزائدةاو الناقصة

   Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
       Try
           Dim sda As New OleDbDataAdapter
           Dim sdt As New DataTable
           sdt.Clear()
           sda = New OleDbDataAdapter("SELECT * From PHONE Where DateAffaire =  dd.AddDays(kk)", con)
           sda.Fill(sdt)
           dgv_table.DataSource = sdt
       Catch ex As Exception
       End Try
   End Sub