How to add a new Business partner.

Hi All,

Below is my coding for adding a new cardcode,cardname(add BP) in business partners...but in runtime i get a error like "Invalid Document Object"..here is my coding for adding a NEW Business partner.can u help me to solve this problem..

<WebMethod()> Public Function QueryBP(ByVal SessionID As String, ByVal CardCode As String,ByVal CardName As String) As Xml.XmlDocument
        Dim DISnode As SBODI_Server.Node
        Dim strSOAPans, strSOAPcmd As String
        Dim xmlDoc As Xml.XmlDocument
 
        xmlDoc = New Xml.XmlDocument
        DISnode = New SBODI_Server.Node
 
        strSOAPcmd = "<?xml version=""1.0"" encoding=""UTF-16""?>" & _
        "<env:Envelope xmlns:env=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
        "<env:Header>" & _
        "<SessionID>" & CStr(SessionID) & "</SessionID>" & _
        "</env:Header><env:Body><dis:AddObject xmlns:dis=""http://www.sap.com/SBO/DIS"">" & _
        "<Object>BusinessPartners</Object>" & _
        "<CardCode>" & CardCode & "</CardCode>" & _
        "<CardName>" & CardName & "</CardName>" & _
        "</dis:AddObject></env:Body></env:Envelope>"
 
        strSOAPans = DISnode.Interact(strSOAPcmd)
        xmlDoc.LoadXml(strSOAPans)
        Return (RemoveEnv(xmlDoc))
    End Function