can any one help me with the below script.
I am getting error like
Error code = 0
Error Source = ADODB.recordset
Error Description : operation is not allowed when the object is closed.
error on line 15
Operation is not allowed when the object is closed

*****

Function Main()

Dim cnn, rst,count
set cnn = CreateObject("ADODB.Connection")
set rst = CreateObject("ADODB.Recordset")
cnn.ConnectionString="Provider=SQLOLEDB;Data Source=cpmqsit;Initial
Catalog=HTCtest;User ID = 'SQLDBA';Password='Access!'"
cnn.Open

set rst = cnn.Execute ("insert into properties1 (propertyid)select
propcode
from htcrepr where propcode not in (select propertyid from properties1)
group
by propcode")

While Not rst Is Nothing
If (Not rst.EOF) Then
Debug.Print rst(0)
End If
' Set rst = rst.NextRecordset
Wend


cnn.Close
set cnn = nothing
Main = DTSTaskExecResult_Success
End Function


thanks


--
Message posted via http://www.sqlmonster.com

chinna jambu via SQLMonster.com wrote:

chinna,

your sql-statement returns no recordset, because you made an INSERT
Write instead:

<code>
Dim cnn, rst,count
set cnn = CreateObject("ADODB.Connection")

cnn.ConnectionString="Provider=SQLOLEDB;Data Source=cpmqsit;Initial
Catalog=HTCtest;User ID = 'SQLDBA';Password='Access!'"
cnn.Open

cnn.Execute ("insert into properties1 (propertyid)select
propcode
from htcrepr where propcode not in (select propertyid from properties1)
group
by propcode")

cnn.Close
set cnn = nothing
Main = DTSTaskExecResult_Success
End Function
</code>

regards

frank