关于vb无法连接64位2010access的问题

[Mr. Aggressive]

写的vb程序遇到点问题：由于我的office版本目前必须限定在2010office，当有一次重装完office后突然发现，在32位2010access和64&32位2010office能成功连接的程序，换成64位2010office就显示报错3706，有没有大神能帮小弟解决一下这个“vb无法连接64位2010access”的问题，不胜感激
连接access的部分代码如下：
Public conn As New ADODB.Connection '定义数据库
Public foldername As String
Public calname As String
Public clicktext As String
Public Sub Create_Open_AccessDB()
Set conn = New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;" & "data source=" & App.Path & "\date1.accdb"
conn.Open '打开数据库
End Sub