Visual Basic - Crear una funcion que ejecute un "select * from tabla where parametro"

Como crear una funcion que ejecute un "select * from tabla where parametro" y que al enviarle un parametro me devuelva el resultado de esa consulta, puede ser el valor que contenga un campo y poder mostrarlo en un textbox.

Gracias

El ejemplo es usando ADO .... Osea necesitarias la referencia a ADO

Private Function GetValor (parametro as integer) as string

dim oCn as new ADOdb.connection
dim oRs as new ADOdb.recordset

ocn.connectionstring = "Provider ................. bla bla"
ocn.open

ors.open "select * from tabla where parametro=" & parametro,ocn

if not ors.eof or ors.eof then
getvalor=ors(campo).value
end if
ors.close
set ors=nothing
ocn.close
set ocn=nothing

end function


Fijate puede haber algo mal escrito pero la idea es esa ...

Esta funcion devuelve un solo valor, si la consulta devuelve mas de un registro deberia devolver un recordset o un array por ejemplo

saludos.....

Como llamaria la funcion y como enviaria el parametro para la consulta. Gracias