Error Creating Product Object

Hello all:I am getting this error in all agents connecting to db2 ,although they were working

here is the way I connect

Dim NSession As New NotesSession

Dim db As Notesdatabase

Dim agent As NotesAgent

Dim Settdoc As NotesDocument

Set db = NSession.currentdatabase

Set agent = NSession.CurrentAgent

Set Settdoc = db.GetProfileDocument(“Settings”)

'Connecting To AS/400

Dim src As LCConnection

Dim keyLst As New LCFieldList

Dim FieldOut As New LCFieldList

Dim count As Long

Dim KeyValue As String

Dim Session As New LCSession

Dim ItemsSQLString As String

'Connecting to AS/400

session.ClearStatus

Set src = New LCConnection (“db2”) src.Database = Settdoc.DataSource(0)

src.Userid = Settdoc.UserName(0)

src.Password = Settdoc.Password(0)

src.Connect 'Connect to data source

I get the error in this line

Set src = New LCConnection ("db2") why is that ,am I doing any thing wrong

thanks in advance

Dalia