Microsoft Office Access 2007 é um aplicativo de banco de dados relacional incluídos na suíte Microsoft Office. Microsoft Data Access Objects (DAO) é uma interface usada para acessar os dados de bases de dados Access . Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar processos de rotina feitos em aplicativos do Microsoft Office . Use o banco de dados padrão Adamastor 2007 incluído com todas as versões do Access, para exibir o último Código do Produto da tabela Produtos através de um conjunto de registros . Instruções
1

Abra o banco de dados " Northwind 2007 " , selecione " Ferramentas de banco de dados " e clique em "Visual Basic". Clique no menu " Inserir", selecione " Module ".
2

Copie e cole o seguinte código em seu módulo:

Sub DAOSub Privado ( )

Dim db As DAO.Database

Dim rst Como DAO.Recordset

Set db = CurrentDb

Set rst = DB.OpenRecordSet ( "Produtos" , dbOpenDynaset )

Se rst.RecordCount > 0 Then

rst.MoveLast

MsgBox ( rst! [ Código do Produto ] )

End If

RST . Fechar

db.Close

End Sub
3

Pressione " F5" para executar a sub-rotina.