Dim ListBox1$() Begin Dialog dlgMenu 23,16,224,243,"Menu", .DisplayIt PushButton 24,14,40,14, "Select File", .PushButton1 Text 72,12,128,14, "Text", .txtFilename Text 24,42,52,11, "Amount Field", .Text1 DropListBox 24,60,157,10, ListBox1$(), .DropListBox1 Text 24,89,40,14, "Amount:", .Text2 TextBox 73,88,83,14, .txtAmount GroupBox 24,116,154,36, "Extraction Type", .groupExtractType OptionGroup .groupExtractType OptionButton 30,129,40,14, ">=", .OptionButton1 OptionButton 81,129,40,14, "<=", .OptionButton2 Text 24,163,40,14, "New Filename", .Text3 TextBox 72,163,108,14, .TextBox1 OKButton 27,194,40,14, "OK", .OKButton1 CancelButton 85,194,40,14, "Cancel", .CancelButton1 End Dialog Option Explicit Dim filename As String Dim amountField As String Dim amount As String Dim extractionType As Boolean Sub Main Call menu() 'Call DirectExtraction() 'Sample-Bank Transactions.IMD End Sub Function menu() Dim dlg As dlgMenu Dim button As Integer Dim filebar As Object button = Dialog(dlg) Select Case button Case -1 'ok button Case 0 ' cancel button Case 1'filename select button Set filebar = CreateObject("ideaex.fileexplorer") filebar.displaydialog filename = filebar.selectedfile End Select End Function ' Data: Direct Extraction Function DirectExtraction Dim db As database Dim task As task Dim dbName As String Set db = Client.OpenDatabase("Sample-Bank Transactions.IMD") Set task = db.Extraction task.IncludeAllFields dbName = "amount greater than 10.IMD" task.AddExtraction dbName, "", "AMOUNT >= 10 " task.CreateVirtualDatabase = False task.PerformTask 1, db.Count Set task = Nothing Set db = Nothing Client.OpenDatabase (dbName) End Function