VB Code:
Dim CMD As New ADODB.Command
Dim Conn As New ADODB.Connection
Dim rsOrg As Recordset
Dim Param As ADODB.Parameter
Conn.ConnectionString = gConnectionString
Conn.Open
Set CMD.ActiveConnection = Conn
CMD.CommandText = "SearchContact"
CMD.CommandType = adCmdStoredProc
strFldName="your field name"
strValue="your value"
Set rsOrg = CMD.Execute(, Array(strFldName, strValue))
Dim i As Integer
i = 1
Do While Not rsOrg.EOF
.ListItems.Add i, , i
.ListItems(i).ListSubItems.Add , , rsOrg("Con_Id")
.ListItems(i).ListSubItems.Add , , rsOrg("Con_Name")
.ListItems(i).ListSubItems.Add , , rsOrg("Org_Abbr")
.ListItems(i).ListSubItems.Add , , rsOrg("Org_Address")
.ListItems(i).ListSubItems.Add , , rsOrg("Org_Postcode")
i = i + 1
rsOrg.MoveNext
Loop