ole error 800A0E7A(20)

ConStr := ExtractFilePath(Application.ExeName) + test.mdb'; ADOCon_Eng.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ConStr + ';' +'Jet OLEDBatabase Password=****;运行出现：ole error 800A0E7A

ConnectionString 语句书写正确吗？ 你show下看看可能是 ExtractFilePath(Application.ExeName) + test.mdb'; 没有“/” 有些系统会出现这样的情况！

不是少了'/'，而是少了一个单引号ConStr := ExtractFilePath(Application.ExeName) + [red]test.mdb'; [/red]应为ConStr := ExtractFilePath(Application.ExeName) + [red]'test.mdb'; [/red]不知是发贴时的笔误，还是调试程序时的疏忽~~根据你的错误，在MSDN上查到的是ADO的问题，用下面的方法重新注册以下REGSVR32 "C:/Program Files/Common Files/System/ole db/MSDASQL.DLL"

多人接受答案了。