问个关于连接数据库的有关问题！

问个关于连接数据库的问题！！！
我有2个BUTTON都要对数据库进行操作。我为每个BUTTON的CLICK事件都写了连接和操作数据库语句。        
        Dim   conn   As   ADODB.Connection
        Dim   rs   As   ADODB.Recordset
        Set   conn   =   New   ADODB.Connection
        Set   rs   =   New   ADODB.Recordset
        conn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\1.db;Persist   Security   Info=False "
        conn.ConnectionTimeout   =   30
        conn.Open
        sql   =   "delete   *   from   t1   where   id   <100   "
        rs.Open   sql,   conn,   adOpenStatic,   adLockReadOnly,   adCmdText
        conn.Close

有没有方法建可以立一个公共的连接。每个BUTTON只需写：
        sql   =   "delete   *   from   t1   where   id   <100   "
        rs.Open   sql,   conn,   adOpenStatic,   adLockReadOnly,   adCmdText
就可以操作数据库？？？？？？？

------解决方案--------------------
共有的部分独立出来。把cnn定义成模块级以上的变量。并在适当的地方实例化和初始化。然后就可以使用了，在退出程序时，释放对象。

例如在模块里定义Public cnn as new adodb.connection
启动程序时，打开连接

然后整个程序就可以使用这一个连接了。退出时再关闭cnn