关于数据库的增加的问题，很急，望能指教！！

Question

我写的程序中
全局变量以后public connection as new adodb.connection
我调用了它
   Private Sub Image1_Click()
Dim connection As New ADODB.connection
Dim adore As New ADODB.Recordset
Dim sql As String
Dim i%
i = MsgBox("您确定要要输入企业代码吗？", vbYesNo)
If i = 6 Then
   Set connection = New ADODB.connection
   Set adore = New ADODB.Recordset
   With adore
      .ActiveConnection = connection
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      .Source = "select * from 企业代码"
      .Open
      .AddNew
    End With
    adore.Fields(0) = Trim(Text1.Text)
    adore.Update
    adore.ActiveConnection = Nothing
    adore.Close
    Set adore = Nothing
End If
End Sub
调试的时候，显示  .ActiveConnection = connection没有连接上，这是什么问题 ？
在线等

Answer 1

Set connection = New ADODB.connection
connection.open 连接字符串
……
connection.close'连接用完也要关闭
Set connection = Nothing