避免重复插入值到msflexgrid表

[xuxugr]

我在做进销存时,在销售部分当我选取某类产品销售并输数量时,我想如何避免下次又重复选取原来的产品,
Set IDlist = New Collection
If Grid1.TextMatrix(Grid1.RowSel, 0) <> "" Then
Adodc2.RecordSource = "select * from tbS_in_detailed where 序号=" & Grid1.TextMatrix(Grid1.RowSel, 0)
Adodc2.Refresh

If Adodc2.Recordset.EOF Then GoTo Move2:

For I = 1 To IDlist.Count
If Adodc2.Recordset.Fields(0).Value = IDlist(I) Then Exit Sub
Next



Frmssd.Grid.Rows = Frmssd.Grid.Rows + 1
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 0) = Adodc2.Recordset.Fields(0)
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 1) = Adodc2.Recordset.Fields("入库单号")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 2) = Adodc2.Recordset.Fields("产品编号")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 3) = Adodc2.Recordset.Fields("面密度")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 4) = Adodc2.Recordset.Fields("宽度")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 5) = Adodc2.Recordset.Fields("厚度")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 6) = Adodc2.Recordset.Fields("长度")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 7) = Adodc2.Recordset.Fields("面积")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 8) = Adodc2.Recordset.Fields("剪切员")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 9) = Format(0, "0.00")
Frmssd.Grid.TextMatrix(Frmssd.Grid.Rows - 1, 10) = Format(0, "0.00")

IDlist.Add Adodc2.Recordset.Fields(0).Value
错在哪呀