急救：请高手帮忙！

Question

连接的access加密了，现在一运行程序就有问题
     Dim strsql As String
     Set conn = New ADODB.Connection
     conn.ConnectionString = "uid=hx;pwd=030828;DRIVER={ Microsoft Access Driver(*.mdb) };DBQ=" & "d:\db2.mdb"
     conn.Open
     Adodc1.ConnectionString = conn
     Adodc1.RecordSource = "db2" 返回错误：[microsoft][ODBC驱动程序 管理器]未发现数据源名称并且未指定默认驱动程序。我不知道怎么设置了，ODBC已经指定为d:\db2.mdb了
帮帮我吧

Answer 1

1、检查数据库。
2、检查ODBC是否工作正常。
3、登陆姓名和口另是否正确。

Answer 2

不用ＯＤＢＣ，直接用OLE DB连接就可以了，为什么非用ODBC?

Answer 3

试试改用下面的方法连接:Dim strsql As String
     Set conn = New ADODB.Connection
     conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db2.mdb;Persist Security Info=False;Jet OLEDB:Database Password=030828"
     conn.Open
     Adodc1.ConnectionString = conn
     Adodc1.RecordSource = "表名"

Answer 4

之所以会出现这样的提示，是因为ODBC没有设好。是呀。VB可以直接可开ACCESS数据库。

Answer 5

Dim strsql As String
     Set conn = New ADODB.Connection
     conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\XXX.mdb;Persist Security Info=False;Jet OLEDB:Database Password=????"
     conn.Open
     Adodc控件.ConnectionString = conn
     Adodc控件.RecordSource = "表名"