Impossible d'acceder a la base de donnees access

Bonjour, tout est dit dans le titre je ne sais pas ou se trouve le probleme exactement!!
on me donne l'erreur suivante:ExecuteReader nécessite une connexion ouverte et disponible. La connexion est actuellement fermée
et on me dit que le fournisseur Microsoft.Jet.OLEDB.4.0 nest pas inscrit dans l'ordinateur local....
voici le code on esperant que quelqu un puisse maider

Imports System
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cn As New OleDbConnection()
        Try
            cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Users\PC\Documents\Base de données1.accdb"
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("impossible detablir la connection a la base." & ex.Message)
        End Try
        Dim CMD = New OleDbCommand("SELECT * FROM patient", cn)
        Dim RDR As OleDbDataReader
        RDR = CMD.ExecuteReader()
        Do While (RDR.Read())
            ComboBox1.Items.Add(RDR.GetValue(0))
        Loop
        ComboBox1.SelectedIndex = -1
        RDR.Close()
        cn.Close()
    End Sub