1
Abra la base de datos " Northwind 2007 " , seleccione " Herramientas de base de datos " y luego haga clic en " Visual Basic ". Haga clic en el menú "Insertar " y luego seleccione "Módulo ".
2
Copia y pega el siguiente código en el módulo :
Private Sub DAOSub ()
db As DAO.Database
primer As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset ( "Productos" , dbOpenDynaset )
Si rst.RecordCount > 0 Entonces
rst.MoveLast
MsgBox ( rst! [ Código de producto] )
End If
primera . Close to
db.Close
End Sub
3
Press "F5 " para ejecutar la subrutina.