ConneXionInsertBroker Method

public ConneXionResult InsertBroker(
	ref Broker oBroker
)

Public Function InsertBroker ( 
	ByRef oBroker As Broker
) As ConneXionResult

Dim oBroker As New ConneXion.Broker
Dim oConn As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult

oBroker.TAMUserName = "EXEC"
oBroker.TAMPassword = "PSWD"
oBroker.Name = "Greene & Grasse"
oBroker.Attention = "Robert Greene"
oBroker.Street = "1904 N Larkin"
oBroker.City = "Joliet"
oBroker.State = "IL"
oBroker.ZipCode = "60435"
oBroker.Phone = "815-729-6845"
oBroker.Email = "rgreene@greenegrasse.com"
oBroker.Heading = "Mr. Greene"
oBroker.Classification = "B2"
oBroker.Statement = "4"
oBroker.EntityID = "GREENE1"

oResult = oConn.InsertBroker(oBroker)

If oResult.Success Then
    MessageBox.Show("Insert Broker is successful")
    txtResult.Text = oResult.Description
Else
    txtResult.Text = "Insert Broker is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " &
     oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If