为什么出现自动化错误
Option Explicit
'定义ADO连接变量
Dim adoConn As ADODB.Connection
Dim adoRs As ADODB.Recordset
Private Sub Form_Load()
On Error Resume Next
Dim db_file As String
db_file = App.Path
If Right(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "myLDF.mdb"

'打开数据库连接
Set adoConn = New ADODB.Connection
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file

adoRs.Close
End Sub
我用上面的代码连接myLDF.mdb数据库，以前正常打开，今天突然出错，当执行到“Set adoConn = New ADODB.Connection”时出现“自动化错误”，请大家帮忙看看，如何解决错误，谢谢

[解决办法]
从网上下载并安装mdac2.8mdactyp.exe
再在工程中引用ADO