本机运行成功后,打包,发给另外一方,出现,运行程序“3706错误,未找到提供程序,或程序安装不正确”  把原来的Provider   =   "Microsoft.Jet.OLEDB.3.15"   改为   
  Provider   =   "Microsoft.Jet.OLEDB.4.0"还是运行不了
以下是我模块的代码是否有所不对 请高手给予意见 谢谢 
Public cntt1 As New ADODB.Connection
Public rstt2 As New ADODB.RecordsetPublic Function dataopen(oconn As Connection) As Boolean
    oconn.CursorLocation = adUseClient
    oconn.ConnectionString = connectstring()
    oconn.Mode = adModeReadWrite
    oconn.Open
    dataopen = True
End Function
Public Function connectstring() As String
    connectstring = "Provider=Microsoft.Jet.OLEDB.4.0 ;Persist Security Info=False;Data Source=" & App.Path & "\phone.mdb"
End Function