I'm trying to load two ListView controls with both listing the same entries, one ListView for tests to include and one for tests to exclude. Both the ListViews will only contain 1 column listing the tests.

I load a recordset from my table to be loaded into the ListViews with CheckBoxes enabled. My recordset contains the correct records (I checked) but when trying to add a record to the ListViews I get 'Runtime Error 13: Type mismatch' on the line in red
Code:
    Dim itmXIn As ListItem
    Dim itmXEx As ListItem

    mySQL = "SELECT * FROM PRG_Options WHERE OPT_Section = 'Medical' AND OPT_Combo = 'TestType'"
    rsTestType.Open mySQL, ADO_UserData, adOpenKeyset, adLockOptimistic

    LvwInclude.ListItems.Clear
    LvwExclude.ListItems.Clear

    Do While Not rsTestType.EOF()
      Set itmXin = LvwInclude.ListItems.Add(, , rsTestType("OPT_Option").Value)
      Set itmXEx = LvwExclude.ListItems.Add(, , rsTestType("OPT_Option").Value)

      rsTestType.MoveNext   ' Move to next record.
    Loop
    
    rsTestType.Close
    Set rsTestType = Nothing
    Set itmXin = Nothing
    Set itmXEx = Nothing
What am I missing/doing wrong? Can't even get it loaded which should be the easy part

My idea is when a test(s) is selected in one ListView to disable the same test in the other ListView as the same test can't be included and excluded at the same time.

I'm stumped. Any help will be appreciated.