Setting the prices in a goods receipt

Hi

I want to create good receipt notes for SBO 2005 A SP01 PL36 which I can do fine but I can't seem to set the price correctly, I just seem to end up with the last buy price

Can anyone help me please ?

The code is below

Thanks

Regards Andy

Dim oimports As SAPbobsCOM.Documents

oimports = SBO.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInventoryGenEntry)

oimports.Reference2 = "ab3"

oimports.Lines.ItemCode = "1110001"

oimports.Lines.Quantity = 1

oimports.Lines.Price = 7.77

oimports.Lines.LineTotal = 7.77

oimports.Lines.DiscountPercent = 0

oimports.Lines.AccountCode = "_SYS00000000917"

If oimports.Add <> 0 Then

MsgBox(SBO.GetLastErrorDescription)

End If