Using VBA to edit record and delete records

I have table (supplier) which simply combines two primary keys from two other tables Contacts and Items, supplier uses the primary key from items as its own primary key. In a certain form there are two list boxes and an option box with 3 radio buttons. The 3 options are, Do nothing, Change to another free item and delete item. The first list box uses a query to show all items that are currently attached to the contact which is in question (as a contact can have more than one different item) from the supplier table.  The other list box runs a similar query that compares the items in the supplier table and those that are in the items table, and displays those that are not in supplier. These are free items and are awaiting to be combined with a contact in the supplier table. When the first and third options are selected the second list box is disabled, when  the second option is selected the second list box is enabled. What I want to happen is the user selects an option from the first list box, then choose an option, should that be option 1, nothing should happen. When option 2 is selected, the itemID from the first list box is replaced by that in the second list box. When the third option is selected the record selected in the first list box should be deleted. These events are triggered by a button click. I am currently using the code shown to achieve this, nothing happens to any records although there is no errors. Any suggestions?Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Private Sub btnSaveChange_Click()
Select Case Me!FrameOptions
Case 1
DoCmd.Close
 
Case 2
    If [LstItems].Value <> 0 Then
    
        Dim OldItems As New ADODB.Recordset
    
        OldItems.Open "Supplier", CurrentProject.Connection, _
            CursorType:=adOpenKeyset, LockType:=adLockBatchOptimistic
            
        Do While Not OldItems.EOF
            If OldItems("ItemID") = [LstItems].Value Then
                OldItems("ItemID") = [lstFreeItems].Value
                OldItems.Update
            End If
            OldItems.MoveNext
        Loop
    Else
        MsgBox ("No items are assigned to this contact")
    End If
    DoCmd.Close
Case 3
    Dim Items As New ADODB.Recordset
    
    Items.Open "Supplier", CurrentProject.Connection, _
        CursorType:=adOpenKeyset, LockType:=adLockBatchOptimistic
        
    Do While Not Items.EOF
        If Items("ItemID") = [LstItems].Value Then
            Items.Delete
            Items.Update
        End If
        Items.MoveNext
    Loop
    DoCmd.Close
End Select
End Sub