Mostar resultados en label

[fedefrankk]

Hola a todos priemro que nada quiero decir que soy nuevo en el tema recien estoy  empezaqndo a estudiar vb6, por eso hago alomejor preguntas tontas para lo que es este foro.. 

Código [Seleccionar] Expandir

x = "Select * from stock where codigo =" & Val(Text1) & " "
tablas_apertura.Open x, conexion_basedatos
Label6.Caption = Val(Text3)

Como veran estoy buscando en la tabla stock todos los campos, (codigo, detalle, precio,etc.), esos resultados los quiero mostrar en un label, pero no se como, tambien como puedo hacer para que si busca en estock se guarde en una variable unicamente el codigo?..
Bueno saludos a todos
Fede

[naderST]

BUSCA                                                                                               BUSCA
        BUSCA                                                                              BUSCA
                BUSCA                                                              BUSCA
                        BUSCA-----------------------------------BUSCA

El que busca encuentra ^^.

[seba123neo]

bueno aparte de lo que te dijo naderST, la verdad no se porque se te ocurre mostrar el resultado en un label, cuando hoy en dia se trabaja con grillas para mostrar las bases y demas , pero bueno...aparte si el resultado de la consulta arroja por ejemplo 300 resultados entonces seria un desastre mostrar todos esos datos en un label ...

[byway]

puedes usar un flexgrid y visualizar todo lo que kieras en conjunto ...y dejar de usar los label...

no puedes poner todos los campos en un solo label... tiene que ser un campo en un label

Código (vb) [Seleccionar] Expandir

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Establesco la conexión
'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Aqui establesco la conexión con la base de datos
cn.ConnectionString = "basedato.mdb"
'Habre la conexion
cn.Open
'Aqui se obtiene una serie de registros: en este caso de la
'tabla stock
rs.Open "select * from stock", cn, adoenkeyset, adLockOptimistic

Label1.Caption = rs.("codigo")
Label2.Caption = rs.("detalle")

[fedefrankk]

Muchas Gracias por las respuestas, me sirvieron muchisimo
Gracias
Saludos
Fede