Sub ConvertDB()


    Dim dbOld As String 'Database
    Dim dbNew As String 'String
    Dim dbsNew As Database

    dbOld = "D:\.........\db1.MDB" ' база в формате Access97
    dbNew = "D:\.........\Access2000.mdb"
      Set appAccess = CreateObject("Access.Application")
        ' If CurrentProject.FileFormat = acFileFormatAccess97 Then
         appAccess.Application.ConvertAccessProject _
        SourceFilename:=dbOld, _
        DestinationFilename:=dbNew, _
        DestinationFileFormat:=acFileFormatAccess2000
        Set appAccess = Nothing
        Kill (dbOld)
        Name dbNew As dbOld
    'End If    
End Sub

If CurrentProject.FileFormat = acFileFormatAccess97  -- не срабатывает