If e.name = "成绩" Then e.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & e.ProjectPath & "成绩数据.mdb;Persist Security Info=False"End if按照上面设置总不成功。access2007的扩展名应该是accdb不是mdb。还得加上源数据库密码我的成功设置:If e.name = "TGFLDATA" Then e.C & e.ProjectPath & "TGFLDATA.accdb;Persist Security Info=False;Jet OLEDB:Database Password=1E40F"End if