DTSRuntimeException was unhandled

[Harris00]

I am running into an exception "DTSRuntimeException was unhandled" in my VB.Net windows project that tries to read packages
stored on MSDB and add it to combox box. Below is my code for your review
Really appreciate your feedback guys!!!!

Imports System.Data.SqlClient

Imports System.Data.SqlTypes

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Dts.Design

Imports Microsoft.SqlServer.Dts.Runtime

Imports Microsoft.SqlServer.Server

Imports System.Data

Imports Microsoft.SqlServer.Management.Smo.Agent 




Public Class Form1 




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Dim app As New Microsoft.SqlServer.Dts.Runtime.Application()

[B][I][U][COLOR="Red"]Dim pInfos As PackageInfos = app.GetPackageInfos("\\", "LOCALHOST", Nothing, Nothing)[/COLOR][/U][/I][/B]
For Each pInfo As PackageInfo In pInfos 
ComboBox1.Items.Add(pInfo.Name)

Next pInfo

End Sub 
End Class

Exception is occuring on uderlined line of code above



regards

Harris