Sub Main

         Call DirectExtraction()   

End Sub



Function DirectExtraction

         Set db = Client.OpenDatabase("myfile.IMD")

         Set task = db.Extraction

         task.IncludeAllFields

         dbName = "outputfile.IMD"

         task.AddExtraction dbName, "", column1 == ""6"""

         task.PerformTask 1, db.Count

         Set task = Nothing

         Set db = Nothing

         Client.OpenDatabase (dbName)

End Function