Converter banco de dados Access para outro formato

É comum o problema de trabalhar em um ambiente de desenvolvimento com o Access 2000 e tentar abrir bancos de dados gerados por ele no Access 97. Como a tarefa de conversão implica em ter que exportar o banco de dados para uma outra versão do Access, a rotina abaixo, retirada de http://www.pstruh.cz/, facilita o trabalho. Neste exemplo, um banco de dados MDB é convertido para o formato do Access 2000 (EngineType 5)

Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5

DoConvertMDB "C:\data\MyDB97.MDB", "C:\data\MyDB2000.MDB", Jet4x

Sub DoConvertMDB(SourceDB, DestDB, Format)
    Dim Engine
    Set Engine = CreateObject("JRO.JetEngine")
    Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceDB, _
      "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=" & Format & ";Data Source=" & DestDB
End Sub

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...