Consultar un valor de una base de datos en un txtbox

[MandingoPC]

Lo que deseo es, tengo en la base de datos un valor, que dice:

Codigo 0         Cantidad  10       etc...

esto es entro de la tabla "Articulos"

lo que yo deseo, es que en mi programa, al apertar un boton; en un txtbox aparezca el 0 que corresponde al campo de código...

gracias por la ayuda.

Código (vb) [Seleccionar] Expandir

Dim rs As ADODB.Recordset
Dim sql As String
sql = "Select * from Articulos order by codigo"
If Not Conectar() Then Exit Sub
Set rs = cn.Execute(sql)
Do While Not rs.EOF
txtcod.Text = rs!Codigo
rs.MoveNext
Loop
Set rs = Nothing
Desconectar

eso era, ya me acordé, gracias.


Cambnaidno de tema para no abrir otro topic, lo que deseo es que el programa me traiga de la base de datos, el último registro del campo "Código", y que lo ponga en un txtbox. eso si me intereasria


bueno ya lo arregle esto de la forma citada, pero quiero otro tema ahora. este lo doy por cerrado