Исходный код

Option Explicit
Call ImportDBStructure()


'==============================================================================
'Импортировать структуру базы данных из указанного пользователем файла.
'Выполнять данный пример может только системный администратор.
'==============================================================================
Sub ImportDBStructure()

        Dim SelFileDlg, NewIcon, RetVal 
        
        ' Открыть диалог выбора файла
        Set SelFileDlg = ThisApplication.Dialogs.FileDlg
        SelFileDlg.Filter = "Файл структуры базы данных TDMS (*.tds)|*.tds||"
        RetVal = SelFileDlg.Show
        
        If RetVal Then
                'Импортировать структуру базы
                ThisApplication.ImportScheme SelFileDlg.FileName
        End If
End Sub 
'==============================================================================