主题：在打开项目的时候判断网络是否连通

Dim cn As New  Data.Oledb.OledbConnection("连接字符串")
Try
    cn.open()
    cn.Close()
     Messagebox.show("通")
Catch ex As Exception
    Messagebox.show("不通")
End Try
这段代码写在哪个打开项目这前执行这个事件中吗？