应用程序定义或对象定义错误!

Question

Dim mlink As String, mpath As String, SQL As String
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
SQL = "select * from log where 日期 like " & str(MonthView1.Value)
mlink = "Provider=Microsoft.Jet.OLE DB.4.0;Data Source=" + mpath + "Database1.mdb"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = SQL
Adodc1.Refresh
这段代码先显示:未找到提供程序.该程序可能未正确安装.
然后显示:应用程序定义或对象定义错误!
怎么办?

Answer 1

引用ado了吗
工程---引用---microsoft activeX data objects 2.x library

Answer 2

1楼的乱说,这代码明明是用adodc,不是ado,那来什么引用楼主最好调试出错在那一句再说,这么长段代码...吐血