请教大佬们个问题：
关于ADO连接ACCESS的问题，引用了ado的组件，相同的代码，在控制台能连上，复制到窗体就显示错误“未找到提供程序。该程序可能未正确安装”

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=I:\test.accdb;Persist Security Info=False;"
cnn.Open()
cnn.Close()
rst = Nothing
cnn = Nothing
End Sub

试过重装office，改过Provider，死活就是连不上，控制台的能连上，太诡异了