ADODB.Connection в VBA: операция не разрешена, если объект закрыт

Question

Я финализации макроса VBA, и интересно, если кто-то может помочь со следующим сообщением об ошибке:

run-time error '3704' 
operation is not allowed when the object is closed 

Код:

== ==============================

Sub upload() 
' 
' upload Macro 
' 
Dim adoCN As ADODB.Connection 
Dim sConnString As String 
Dim sSQL As String 
Dim lRow As Long 
Dim i As Integer 

sConnString = "Provider=sqloledb;Server=xxx;User Id=xxx;Password=xxx" 
Set adoCN = CreateObject("ADODB.Connection") 
Sheets("sql").Activate 
Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select 
lRow = Selection.Rows.Count 
For i = 2 To lRow 
sSQL = "INSERT INTO tblData (ISN, Date, Px_last) " & _ 
     " VALUES (" & _ 
     "'" & Cells(i, 1) & "', " & _ 
     "'" & Cells(i, 2) & "', " & _ 
     "'" & Cells(i, 3) & "')" 
adoCN.Execute sSQL 
Next i 
adoCN.Close 
Set adoCN = Nothing 
End Sub 

Бест,

Answer 1

Вам необходимо открыть соединение прежде чем вы сможете его использовать.

sConnString = "Provider=sqloledb;Server=xxx;User Id=xxx;Password=xxx" 
Set adoCN = CreateObject("ADODB.Connection") 
adoCN.Open