主题：[求助]网络加载表问题

 1、表数据过多；过多数据请用分页或动态加载；

 2、在beforeOpenProject的时候测试是否可以连接数据库，不能连接，就关闭程序。

try
    Dim conn As ADODB.Connection
    conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
    conn.Open
   
    msgbox("成功")
    conn.close
Catch ex As Exception
    msgbox("失败")

    e.Cancel = true
End try