例
If e.name = "TGFLDATA" Then e.C & e.ProjectPath & "TGFLDATA.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1E40F"End if