Visual Basic - AYUDA!!! Busqueda en SQL

Hola…para hacer una busqueda usando ADO y SQL hago lo siguiente (si busco por el campo que contiene la clave principal)
******
sql = "SELECT * FROM CLIENTES " & _
"WHERE campoclave =" & Text1.Text
rs.Open sql, dbconexion
Text2.Text = rs.Fields("campoclave")
Text3.Text = rs.Fields("campo1")
Text4.Text = rs.Fields("campo2")
Text5.Text = rs.Fields("campo3")
******
Mi pregunta es, si se puede, como hago para poder buscar por cualquier campo y no por el que contenga la clave principal

Hola, te podes crear una función, la cual reciba como parámetros el campo y el valor... ej.:

public function EjecutarConsulta( optional sCampo as string, optional sValorString as string, optional nValorInteger as integer) as boolean

' Comienzo con el armado de la sentencia SQL...
sql = "SELECT CampoClave, Campo1, Campo2, Campo3 FROM CLIENTES WHERE " & sCampo & "="

if sValorString <> "" then
sql= sql & "'" & sValorString & "'"
elseif nValorInteger > -1 then
sql= sql & nValorInteger
end if

rs.Open sql, dbconexion

Text2.Text = rs.Fields("CampoClave")
Text3.Text = rs.Fields("Campo1")
Text4.Text = rs.Fields("Campo2")
Text5.Text = rs.Fields("Campo3")

' Aviso que no hubo error (esto lo dejo para que lo hagas vos...)
EjecutarConsulta= false

end function

y lo llamas de esta forma...

dim bHuboError as boolean

bHuboError= EjecutarConsulta("CampoClave", "ValorBuscado",-1)

fijate que en el ejemplo, tenés tres parámetros, uno que es el campo, y es obligatório, otro que es optatívo y es de tipo string, y otro que tambien es optatívo, y es integer.

Espero que te sirva, y cualquier duda, postealo.
Saludos.