String Maddness!

[Danial]

Here is the example :

    Create Procedure SerachContact
    	@FieldName varchar(100),
    	@Value varchar(100)
    AS
    	Select * From Contact Where @FieldName =@Value
    
    return

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