If e.name = "数据源名称" e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "cztms.mdb;Persist Security Info=False"
end if