主题：编译器错误找不到可安装的ISAM?

大家好，小弟第一次用vba，测试说明书的程序，按shift+f5运行时出现错误说找不到可安装的ISAM，请问如何解决？

 Sub DataInsert()
Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open"Provider=MicroSoft.Jet.OLEDB.4.0;DataSource="&Application.AppPath&"\test.mdb"
strSqlcre="create table if00"
adoConn.Execute(strSqlcre)
strSqlalt1="alter table if00 add stockdate double"
strSqlalt2="alter table if00 add vclose double"
addConn.Execute(strSqlalt1)
addConn.Execute(strSqlalt2)
addConn.close
end sub

sub application_vbastart()
    call DataInsert()
end sub