How can I report defects to QC from script results

[BullzEyezz]

Okay, I got now how to create a defect from QTP using

Code:

Dim QCConnection

Set QCConnection = QCUtil.QCConnection

'Get the IBugFactory

Set BugFactory = QCConnection.BugFactory

'Add a new, empty defect

Set Bug = BugFactory.AddItem (Nothing)

'Enter values for required fields

Bug.Status = "New"

Bug.Summary = "New defect"

Bug.DetectedBy = "admin" ' user that must exist in the database's user list

'Post the bug to the database ( commit )

Bug.Post

But there're some fields I can't alter, such as: Build, Team Lead, QA Responsibility, Status Detail.

Anyone know how to change the values of the mentioned fields? (tried using

Code:

Bug.field("BG_Team_Lead")

but didn't work