ConneXionFindCustomersByCriteria Method

public ConneXionResult FindCustomersByCriteria(
	Customer Customer,
	ref Customer[] Customers
)

Public Function FindCustomersByCriteria ( 
	Customer As Customer,
	ByRef Customers As Customer()
) As ConneXionResult

Dim oCustomer As New ConneXion.Customer
Dim oConneXion As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult
Dim oCustomers() As ConneXion.Customer

oCustomer.LicenseKey = "1234567  1"
oCustomer.State = "IL"
oCustomer.TAMUserName = "EXEC"
oCustomer.TAMPassword = "PSWD"
oCustomer.TAMCentralAgency = "DEMOAG1"

oResult = oConneXion.FindCustomersByCriteria(oCustomer, oCustomers)
If oResult.Success = True Then
    txtResult.Text = oResult.Description
    dgrd.DataSource = oCustomers
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If