主题：局域网的外部数据源，BeforeConnectOuterDataSource该怎么写代码？

局域网外部数据库地址是,如图片。

ACCESS密码是：123456

局域网地址是：  \\HEHUI\data\订单.mdb

1、那么BeforeConnectOuterDataSource里面该怎么写？

2、假如数据源不存在的话，让它选择默认安装目录下面的:  订单.mdb

3、假如还没有的话，自动关闭程序。

谢谢！

If e.Name = "数据库" Then
    If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\HEHUI\data\订单.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456") = False Then 

          e.Connection String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "xingcheng.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456"

    else