1: 2: 3: 4: 5: 6:
If Not (rc.EOF And rc.BOF) Then For Each f In rc.Fields j = Me.ListView2.FindItemWithText(f.Name).Index '==> Error! If (j <> -1) Then Me.ListView2.Items(j).Checked = True Next End If