Error 30002: Type 'Microsoft.Vsa.VsaModule' Is Not Defined

Hello,

I'm receiving the following error when executing a Script Task.


Error: 0x7 at Generate Snapshot: Error 30002: Type 'Microsoft.Vsa.VsaModule' is not defined.

Line 4 Columns 12-34

Line Text:


Has anyone seen this before? I'm creating the task to interact with our reporting server as prescribed in a separate thread. The actual code snippet is listed below. ReportingService2005 is a proxy class created by WSDL.EXE to provide an interface to the report services webservice.





Code Snippet
' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.
Imports System
Imports System.Data
Imports System.Math
Imports System.Xml
Imports System.Web.Services
Imports Microsoft.SqlServer.Dts.Runtime
Public Class ScriptMain
' The execution engine calls this method when the task executes.
' To access the object model, use the Dts object. Connections, variables, events,
' and logging features are available as static members of the Dts class.
' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
'
' To open Code and Text Editor Help, press F1.
' To open Object Browser, press Ctrl+Alt+J.
Public Sub Main()
Dim rs As New Microsoft.SqlServer.ReportingServices2005.ReportingService2005
' Set the credentials
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
Try
' Retrieve package variable information
Dim reportName As String = Dts.variables("reportName").value.tostring()
Dim reportStatusID As Long = Dts.variables("reportStatusID").value
Dim environmentName As String = Dts.variables("environmentName").value.tostring()
' Define report location
Dim parentFolder As String = "ODRReports"
Dim parentPath As String = "/" & parentFolder
Dim reportPath As String = parentFolder & "/" & reportName
' Define report history parameters.
Dim EnableManualSnapshotCreation As Boolean = True
Dim KeepExecutionSnapshots As Boolean = False
Dim schedule As Microsoft.SqlServer.ReportingServices2005.NoSchedule
' Set the report history options.
rs.SetReportHistoryOptions(reportPath, EnableManualSnapshotCreation, _
KeepExecutionSnapshots, schedule)
' Update the report snapshot
rs.UpdateReportExecutionSnapshot(reportPath)
Dts.log("The execution snapshot for " & reportPath & " was created successfully", 0, x)
Catch ex As Exception
Dts.Log("Error: " & ex.Message & " " & ex.StackTrace, 0, x)
End Try
Dts.TaskResult = Dts.Results.Success
End Sub
End Class


Kind regards,
Orlanzo