ConneXionUpdateProspect Method

public ConneXionResult UpdateProspect(
	Prospect Prospect
)

Public Function UpdateProspect ( 
	Prospect As Prospect
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oProspect As New ConneXion.Prospect
Dim oResult As ConneXion.ConneXionResult

oProspect.TAMUserName = "EXEC"
oProspect.TAMPassword = "PSWD"
oProspect.ProspectID = "BROWMI2"
oResult = oConneXion.FindProspect(oProspect)

If oResult.Success = False Then
    MessageBox.Show("FindProspect was false. " & oResult.Description & ".")
Else
    oProspect.TAMUserName = "EXEC"
    oProspect.TAMPassword = "PSWD"
    oProspect.CSR = "AR"

    oResult = oConneXion.UpdateProspect(oProspect)

    If oResult.Success Then
        MessageBox.Show("Update Prospect is Successful")
        txtResult.Text = oResult.Description
    Else
        txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " &
            oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If
End If