问题如下图

代码：
Adodc4.ConnectionString = adoCon
    Adodc4.RecordSource = "select * from Subsiby"
    Adodc4.Refresh
With Adodc4
List1.Clear
.Recordset.MoveFirst
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("补助类型").Value)
.Recordset.MoveNext
Loop
End With
Subsiby表中只有图中显示的前四项内容，如何才能让List1不重复添加。

不信邪的我加建一工程同样的代码这回能正常添加的内容了。
同样的代码不一样的效果难道是操作系统的问题
系统是Windows 11的

加一步字典判断去重

关键是Subsiby表中没有重复的数据，版主的建议应该没必要吧