Issue with Business object add ........ VB6, SAP 2004A, SQL Server2000

Question

my scenario is this,
I am creating a business partner when an item is added , my business partner gets created but not the Item.
The Item is created manually by the user, and the on the Click event of the Add button I create the Business partner. I cannot understand the issue. SAP does not throw any errors either.
If I remove call to the BP creating function then the Item is added.
here is the code,
Case et_CLICK
            If pVal.ItemUID = "1" Then
                If Not pVal.BeforeAction Then
                    If mObjSBOApplication.Forms(FormUID).Mode = fm_ADD_MODE Then
                        CreateBusinessPartner
                    End If
                End If
            End If
and here is the CreateBusinessPatner Fucntion
    Dim oBPMasterObject As New SAPbobsCOM.BusinessPartners
    Set oBPMasterObject = gObjCompany.GetBusinessObject(oBusinessPartners)
    With oBPMasterObject
        .CardCode = sKey
        .CardName = sKey       
        .add
    End With
    Set oBPMasterObject = Nothing
appreciate any help.
Indika.

Answer 1

hello!!
are you sure that the program pass trought your function "CreateBusinessPartner"?have you put a breakpoint in the call of the function?be  carefully with the events, beforeevent...
another reason cuold be, what value returns the .add method?
you can capture ...
if lret =.add <> 0
    MessageBox.show(ocompany.getlasterrordescription)
end if
Could be that sap don't create your business partner, and it no returns a visible error
ahhh one more thing, be careful with the form mode