access库注册ODBC出错，

Question

Private Sub Command1_Click()
Dim RegOk As String
Dim strRegister As String'注册字符串
strRegister = "Description = Advance Medicinal Imaging System" _
    & vbCr & "DBQ=D:\my program\manage\data\mydata.mdb"
    
'注册ACCESS数据库
DBEngine.RegisterDatabase "mydata", "Microsoft Access Driver(*.mdb)", True, strRegister
RegOk = MsgBox("注册成功", vbOKOnly)End Sub
提示是：实时错误“3146“
调用ODBC失败。我已经加载DAO了。

Answer 1

另外 ，我还问一下 ，用ODBC怎样连ACCESS ，小弟是新手。

Answer 2

我直接在控制面板中设odbc的。为什么要动态注册呢？

Answer 3

唉，CSDN越来越让人失望了，这样的问题都没人回答。

Answer 4

CSDN是很好的！！！！！
Dim con As ADODB.Connection
Dim rscust As ADODB.Recordset
Set con = New Connection
con.ConnectionString = "Provider=microsoft.jet.OLEDB.4.0;Data source=c:\vb\jz.MDB"
    con.Open
    Set rscust = New Recordset
    rscust.Open "select cdxm as 姓名,cdjh as 金额 from jz2002", con, adOpenKeyset, adLockReadOnly
Set DataGrid1.DataSource = rscust