hola, mira yo lo hago de esta forma:
primero creo una clase y dentro de esa clase pongo lo siguiente:
public class Busqueda()
public Function Consulta(byval strclave as string) as SqlDataReader
dim cnn as new SqlConnection("server=nombreservidor;database=nomb reBDD;user id=nomusuario;password=contraseña;")
dim cmd as new SqlCommand("dbo.nombreProcedimiento",cnn)
cmd.CommandType=CommandType.StoredProcedure
dim prm as new SqlParameter("@nombrevariable",SqlDbType.Varchar)
prm.Direction=ParaneterDirection.Input
prm.Size=longitudvariable
prm.value=strclave
cmd.Parameters.Add(prm)
dim rdr As SqlDataReader
try
cnn.open()
rdr=cmd.executeReader(CommandBehavior.CloseConnect ion)
Return rdr
Catch ex as Exception
Debug.WriteLine(ex.message)
Throw ex
end try
end Function
End Class
esto se hace en la clase q se llama Busqueda para que en el form o interfaz lo mandemos a llamar de la siguiente manera:
lo primero que tenemos que checar si se ara la busqueda por medio de un boton o como quieras llamar la consulta, si es con un boton entonces dando doble clic sobre escribiriamos esto:
Dim obj as new Busqueda
dim reader as SqlClient.SqlDataReader=obj.Consulta(clave.text)
if reader.HasRows then
While reader.Read
txtnombre.text=reader.item("nombre")
txtdireccion.text=reader.item("direccion")
txtnegocio.text=reader.item("negocio")
end while
end if
y con eso estarias mostrando tus datos en los texbox.
espero te ayude
saludos
