Data Type Conversion Error - Make Member Procedure

[SanAntonioSpurFan]

I have a form that has two list - Member Product List and Non-Member Product List. Basicly, I have a dataset of items that I want to group togher. The Make Member button selects items from the dataset and inserts them into a table called Product Segmentation UPC. This code works perfect. However, when I want to delete from the member list I get a error message that says "Data Type Conversion Error" Run time Error '3421'. Not sure why....Here the code I have.

Option Explicit
Dim varItm As Variant

Private Sub Form_Load()
Set MasterData = DBEngine.Workspaces(0).Databases(0)
Set RecSet = MasterData.OpenTable("Product Segmentation UPC", dbOpenTable)
RecSet.Index = "PrimaryKey"
End Sub

Private Sub Make_Member_Button_Click()
For Each varItm In [Non-Member Product List].ItemsSelected
RecSet.AddNew
RecSet.SegmentationID = Me![Selected Seg]
RecSet.[GroupID] = Me![Selected Group]
RecSet.[UPC] = [Non-Member Product List].ItemData(varItm)
RecSet.Update
Next varItm
DoCmd.Hourglass True
[Non-Member Product List].Requery
[Member Product List].Requery
[Auto Select Non-Members] = Null
[Auto Select Members] = Null
DoCmd.Hourglass False
Call Member_Product_List_Click
End Sub

Private Sub Make_Non_Member_Button_Click()
For Each varItm In [Member Product List].ItemsSelected

'the line below gives the error
RecSet.Seek "=", Me![Selected Group], [Member Product List].ItemData(varItm)
If RecSet.NoMatch Then
Debug.Print "Couldn't zap member. Group:"; Me![Selected Group]; " Item:"; [Member Product List].ItemData(varItm)
Else
RecSet.Delete
End If
Next varItm
DoCmd.Hourglass True
[Member Product List].Requery
[Non-Member Product List].Requery
[Auto Select Non-Members] = Null
[Auto Select Members] = Null
DoCmd.Hourglass False
Call Non_Member_Product_List_Click
End Sub

Private Sub Member_Product_List_Click()
For Each varItm In [Non-Member Product List].ItemsSelected
[Non-Member Product List].Selected(varItm) = False
Next varItm
End Sub

Private Sub Non_Member_Product_List_Click()
For Each varItm In [Member Product List].ItemsSelected
[Member Product List].Selected(varItm) = False
Next varItm
End Sub

Can anyone help me?

 

[SanAntonioSpurFan]

Simple index correction.