主题：数据源连接

外部数据源的名称为“成绩”，数据源的格式为2000/2003，外部数据文件名为"成绩数据.mdb"，和项目文件处于同一目录之下，但数据库为加密文件，密码为123456，请问：

If e.name = "成绩" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "成绩数据.mdb;Persist Security Info=False"
End if

怎么改才能自动连接数据源？