在线等,连接ACCESS数据库问题

我现在有一个数据库是加了密码的,
我的连接函数如下所示;
'**************************************************
'函数名：main
'作  用：程序初始化时所用的信息
'关键字:conn.string
'创建日期：2004-10-10
'创建作者:GKK1984
'**************************************************
Public Sub Main()
    If App.PrevInstance Then Exit Sub
    Dim str As String
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
       On Error GoTo OpenErr
    If Dir(str) <> Empty Then
        conn.ConnectionString = ConnectString
        conn.Open
    Else
        MsgBox "找不到数据库!请您检查一下您的数据库路径!!", , gTitle
        End
    End If
   
    Exit Sub
OpenErr:
    MsgBox err.Description, , gTitle
    err.Clear
    'EndSystem
End SubPublic Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\Employ1.mdb;Persist Security Info=False;Database Password=123456"
End Function这是我连接数据库的程序,但是系统提示说找不到可安装的ISAM还请诸位帮我解决一下一下了啊!

解决方案 »

  1.   

    怀疑你的ConnectString() 有问题，你可以在你窗体上加个adodc控件然后生成一个数据库连接字符串，再试一下
      

  2.   

    creazyfish(梳分头的鱼) 
    要不你帮我试试,然后给我一段代码吧!你看行不
      

  3.   

    应该是连接字符有问题！我都遇过这样的问题。
    试下在连接字符中加入user id 或将Persist Security Info=True
      

  4.   

    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;"推荐去下面的站点看看
    http://www.connectionstrings.com/
      

  5.   

    连接字符串应该为:"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\YourDBPath\YourDB.mdb;User Id=admin;Password=YourPwd;"