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

السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك

كود :

 Private Sub Btn_SearchBetween_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SearchBetween.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value & "#", con)
           da.Fill(dt)
           dgv_table.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub