VB 可不可以共用数据库连接？

这样想的
 
  public sub connect()  ....连接数据库...
  conn.open  end sub 在程序加载时打开连接 connect
 一直到关闭整个程序后再  conn.close
 
主要是连接sqlserver数据库，想运行时建立连接，关掉程序后断开，各位是怎么做的？求思路
还有就是窗体间如何传递数据？坛子上好像搜索不到