¿Cómo puedo almacenar un campo en una variable?

[Andres95]

Private Sub ADO_Click()
' Se necesita referencia en el proyecto a Microsoft OLE DB
' ActiveX Data Objects 1.0 Library
'aca solamente se definen las variables
Dim Conexion As Connection 'te hace falta una conexion a la base de datos.
Dim miRs As Recordset ' ya tienes el recorset


Set Conexion = new ADODB.Connection ' se crea el objeto conexion
Set miRs = new ADODB.RecordSet ' se crea el objeto recordset

Conexion.Open "MiDSN" ' aqui requieres de un DSN mismo que se hace en
' el panel de control o bien una cadena de
'conexion, lo mas sencillo es un DSN


'con la sig instruccio llenas tu recordset osea lees de la base de datos y
'lo almacenas en tu variable de visualbasic... en el recordset
'debes realizar una consulta, esta depende de las tablas y los campos que
'tengas en la BD, en este caso selecciona todas las columnas de la tabla
'authors.

miRs.Open "select * from authors", Conexion


'movenext, te sirve para moverte al sig registro, en este caso el primero.
miRs.MoveNext

'esta sentencia es la unica que tienes... pero te faltan las de arriba...
'en este caso se presenta en pantalla pero la puedes asignar a tu variable.
MsgBox miRs.Fields("au_lname")

miRs.Close 'cierras el recordset
Conexion.Close 'cierras la conexion
Set Conexion = Nothing
End Sub