紧急求救：连接oracle的问题，能否只连接一次？

Question

Sub InsertData(参数列表)
  Dim AdoConnect As ADODB.Connection
  Set AdoConnect = New ADODB.Connection
  ConnStr = 连接串
  AdoConnect.ConnectionString = ConnStr
  AdoConnect.Open
  Dim sql As String
  sql = insert语句
  AdoConnect.Execute sql
  AdoConnect.Close
End Sub上面是写的一个sub，这样的话我每次插入一条记录就调用一次这个sub，连接上很费时间。
能不能只连接一次呢，以后只是去执行sql语句？

Answer 1

如果是这样：
  Public AdoConnect As ADODB.Connection
  Set AdoConnect = New ADODB.Connection
  ConnStr = 连接串
  AdoConnect.ConnectionString = ConnStr
  AdoConnect.Open
以后调用时只是：
Sub InsertData(参数列表)
  Dim sql As String
  sql = insert语句
  AdoConnect.Execute sql
End Sub也就是以后永远不关闭这个连接（AdoConnect.Close）不知道是否可行？会对数据库造成什么不良的后果吗？

Answer 2

我对oracle不熟悉,但可以看一下这个网页,是有关于连接各种数据库的代码:
http://www.connectionstrings.com/
操作完了就关闭数据库,保持安全性.