Man.. espero que esto te pueda ayudar..
Si lo que quieres es acceder a el ultimo campo de un registro de la BD.
aqui te pongo un ejemplo de como conectar y acceder alos campos
Option Explicit
' En ADO, se usa el objeto Connection para abrir las bases de datos
Private cnn As ADODB.Connection
' Necesitamos los eventos si queremos controlar algunas cosillas
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
' Aqui le decimos en que direccion esta la base de datos
Dim sPathBase As String
'Le asignamos la cadena de la direccion
sPathBase = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
' Crear los objetos con los que accederemos
Set cnn = New ADODB.Connection ' varibale cnn para la coneccion
Set rst = New ADODB.Recordset 'varible rst que es el recordset para el acceso a BD
' "Provider=Microsoft.Jet.OLEDB.3.51;" si usas acces 97 usas este provedor
' "Provider=Microsoft.Jet.OLEDB.4.0;" para access 2000 usamos este
'aqui le decimos ke modificaremos varias propiedades dela variable cnn tons usamos un with
With cnn
'le asignamos el provedor de la bd que usaremos en este caso 4.0 x ser 2000
' y le pasamos la direccion de la base de datos que seria el sPathBase
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' aqui le decirmos que table vamos a leer
rst.Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
End Sub
'con esto ya conectaste y leiste los datos de la tabla
' ahora puedes asiganarlos a quien sea un textbox o lo que quieras
text1.text = rst.fields("NombredelCampo")
' esto ya lo puedes asignar a otro control o ponerlo en dentro de un boton que lo ejecute o mostrarlo en un grid o como se te ocurre espero que te aya servido.
Saludos!!
Jesus Rubio
