SSIS Script Component Error

Hi,

In one of the SSIS package, I have a Script Component with ReadWrite variables --> TotalRecordCount, JobName, CycleCode

But suddenly in our Prod server from where the SSIS package is executed against our Prod DB server (SQL Server 2005 SP2), it failed. The error message was

Error: 2008-04-11 07:31:20.61
Code: 0xC0047062
Source: DFT PolicyTerm Load SCR Balancing [839]
Description: System.Runtime.InteropServices.COMException (0xC001404D): Exception from HRESULT: 0xC001404D
at Microsoft.SqlServer.Dts.Pipeline.ScriptComponentHost.HandleUserException(Exception e)
at Microsoft.SqlServer.Dts.Pipeline.ScriptComponentHost.PostExecute()
at Microsoft.SqlServer.Dts.Pipeline.ManagedComponentHost.HostPostExecute(IDTSManagedComponentWrapper90 wrapper)
End Error

I am attaching the code below here...



Imports System

Imports System.Data

Imports System.Data.OleDb

Imports System.Collections

Imports System.Text

Imports System.Windows.Forms

Imports System.Environment



Public Class ScriptMain

Inherits UserComponent

Public rowCount As Integer

Public Connections As New Connections(Me)


Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)


rowCount += 1

End Sub


Public Overrides Sub PostExecute()

'add to global variables


Variables.TotalRecordCount += rowCount

Dim stb As StringBuilder

stb = New StringBuilder

stb.Append(String.Format("<BalanceData ProgramName=""{0}"" JobName=""{1}"" CycleCode=""{2}"" >", "PST020", Variables.JobName, Variables.CycleCode))

stb.Append(String.Format("<BalanceLog BalanceItemId=""10040"" BalanceNumber=""{0}"" />", rowCount))

stb.Append("</BalanceData>")

With New OleDbCommand("dbo.uspInsertBalanceLog")

.CommandType = CommandType.StoredProcedure

'Define the common parameters

.Parameters.Add("@balanceLog", OleDbType.VarChar, 4000).Value = stb.ToString()

'Define and open the database connection

.Connection = New OleDbConnection(Connections.Prostar.ConnectionString)

.Connection.Open()


Try


.ExecuteNonQuery() 'Execute the procedure

Finally 'Always finalize expensive objects

.Connection.Close()

.Connection.Dispose()

End Try

End With

MyBase.PostExecute()

End Sub

End Class

Can tell me what the issue could be...