假如你用ADO进行数据连接时不必这么麻烦的连接数据库,其实对数据库连接必要的参数为这样几个,Provider //数据连接提供者,uid //连接者,在ACCESS中为admin,pwd //连接者口令,假如在ACCESS中对管理者加了口令,需用。DQB //存放ACCESS文件的所在目录,只针对文件型数据库。//database 针对类似于MS SQL一类的数据库中的数据库
   显而易见,你的代码中少了UID及PWD,另外你用的这种方法中少了DSN'数据源,可以从控制面板中的ODBC中找到对应的ACCESS的数据源。相信改正了上述中的错误,应该可以连接成功.

解决方案 »

  1.   

    用以下如何:
    Set cn = New ADODB.Connection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data urce=YOURDATABASE.
    mdb"
        cn.Open
      

  2.   

    connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + App.Path + "\money.mdb" + ";uid=;pwd=;"
        
      

  3.   

    你可以用ADO数据控件自己生成串,多简单啊,你作的只要复制就行了,绝对不回出错
    dim cn as new ADODB.Connection
        cn.open "复制的串"