Sub Main 'Variable declarations 'Database objects needed from active DB Dim numfields As Integer Dim olddb As Object Dim task As Object Dim filename As String Dim filebar As Object Dim field As Object Dim table As Object On Error Resume Next Set filebar = CreateObject ("ideaex.FileExplorer") filebar.DisplayDialog filename = filebar.SelectedFile If filename = "" Then Exit Sub End If Set olddb = client.opendatabase("DBNAME.IMD") Set table = olddb.tabledef Set numfields = olddb.count For i = 1 To numfields Set ThisField = Table.GetFieldAt (i) Set db = Client.OpenDatabase("DBNAME.IMD") Set task = olddb.Extraction task.AddFieldToInc "PRI_KEY" 'Replicate to include more fields task.AddFieldToInc ThisField.Name task.AddFieldToInc ThisField.Name & "1" dbName = "2_" & i & "_Mismatching " & ThisField.Name & ".IMD" task.AddExtraction dbName, "", ThisField.Name & "<>" & ThisField.Name & "1" task.CreateVirtualDatabase = False task.PerformTask 1, db.Count 'Set task = Nothing 'Set db = Nothing Else End If Next i End Sub