Dim ListBox1$() Begin Dialog NewDialog 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 Sub Main Call DirectExtraction() 'Sample-Bank Transactions.IMD End Sub ' Data: Direct Extraction Function DirectExtraction 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