Function Step_04A()			
	Dim db As Object
	Dim rSet As Object
	Dim rec As Object
	Dim i As Integer
	Dim count As Integer
	Dim keyword As String
	
	Client.CloseAll
	
	Set db = Client.OpenDatabase("Test loop voor draaien overzichten aanbesteden\Testbestand2-Blad1.IMD")
	Set rSet = db.RecordSet
	Set rec = rSet.ActiveRecord	
	
	count = rSet.Count
	
	For i = 1 To count
		rset.GetAt(i)
		keyword = rec.GetCharValueAt(1)
		Call Step_04B(keyword)
	Next i
	
	Set rec = Nothing
	Set rSet = Nothing
	Set db = Nothing
	
	Client.RefreshFileExplorer
End Function


	' Data: Direct Extraction
Function Step_04B(ByVal keyword As String)
		Dim db As Object
		Dim task As Object
		Dim dbName As String
		Dim eqn As String
		


Set db = Client.OpenDatabase("Test loop voor draaien overzichten aanbesteden\Testbestand1-Blad1.IMD")
Set task = db.Extraction
task.IncludeAllFields
dbName = "Test loop voor draaien overzichten aanbesteden\Selectie" & keyword & ".IMD"
eqn = "@Isini(""" & keyword & """;VELD1)"

task.AddExtraction dbName, "", eqn
task.CreateVirtualDatabase = False
task.PerformTask 1, db.Count
Set task = Nothing
Set db = Nothing
'Client.OpenDatabase (dbName)

		Client.CloseDatabase("Test loop voor draaien overzichten aanbesteden\Testbestand2-Blad1.IMD")
		Client.CloseDatabase("Test loop voor draaien overzichten aanbesteden\Testbestand1-Blad1.IMD")
		Client.RefreshFileExplorer

End Function