Не удается найти указанный поставщик. Вероятно он установлен неправильно

 Private Sub Form_Activate()
Label2 = Date
Dim conn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
Dim PAT
    Set conn = Nothing
     PAT = App.Path & "\Event_db.accdb"
    Set conn = New ADODB.Connection
    conn = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5\Event_db.accdb;Persist Security Info=False;"
    conn.Open
    
    Set rs = New ADODB.Recordset
    SQL = "SELECT * FROM Event_tbl  WHERE [Event_tbl.Da_te] =#" + Format$(Date, "mm\/dd\/yyyy") + "#"
     rs.Open SQL, conn, 3, 3
 
Label2 = Date
 
If Not rs.EOF Then
        Список = ""
        rs.MoveLast
        rs.MoveFirst
        For i = 0 To rs.RecordCount - 1
            S = ""
                S = rs("Event") & "  " & rs("Da_te2") & "  " & rs("Ti_me") & "  " & rs("Enterprise") & "  " & rs("Phone") & "  " & rs("Location")
                Список = Список & vbCrLf & S
        rs.MoveNext
        Next i
Else
  Список.Font.Name = "Cambria"
  Список.Font.Italic = True
  Список.FontSize = 24
  Список = "Сегодня нет событий"
End If
rs.Close
conn.Close
 
End Sub
 
Private Sub Label4_Click()
End
End Sub
' отображение текущего времени
Sub ShowTime()
Label3.Caption = CStr(Time)
End Sub
 
' инициализация формы
Private Sub Form_Load()
' настройка и запуск таймера
Timer1.Interval = 1000 ' период сигналов таймера - 1 с
Timer1.Enabled = True ' запуск таймера
 
End Sub
' обработка сигнала таймера
Private Sub Timer1_Timer()
Call ShowTime ' отображение времени
End Sub