[IBRA939]

جرب هذا اخي
في زر (الحالات التي حدثت)

    Dim sql As String = "SELECT * FROM [Table1] WHERE [State]='" & "' AND Between '" & DateTimePicker1.Value & "' AND '" & DateTimePicker2.Value & "'"
        Using da As New OleDbDataAdapter(sql, Con)
            Dim dt As New DataTable
            da.Fill(dt)
            dgvList.DataSource = dt
        End Using