ConneXionInsertCompany Method

public ConneXionResult InsertCompany(
	ref Company oCompany
)

Public Function InsertCompany ( 
	ByRef oCompany As Company
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oCompany As New ConneXion.Company
Dim oResult As ConneXion.ConneXionResult

oCompany.TAMUserName = "EXEC"
oCompany.TAMPassword = "PSWD"
oCompany.CarrierBroker = "C"
oCompany.EntityID = "GNG"
oCompany.Name = "Greene & Greene"
oCompany.Street = "1012 Jefferson"
oCompany.Street2 = "East"
oCompany.City = "Joliet"
oCompany.State = "IL"
oCompany.ZipCode = "60431"
oCompany.Fax = "76542321"

oResult = oConneXion.InsertCompany(oCompany)
If oResult.Success Then
    MessageBox.Show("Insert Company is Successful")
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " &
     oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If