عاوز طريق امسح او اعدل جميع الاسماء المتكراره

الحل كما يلي B)

SQL = "select Filde1 from Table1 Group by Filde1 "
					Set rs = dB.Execute(SQL)
				  List1.Clear
					Do Until rs.EOF
						If Not IsNull(rs![Filde1]) Then List1.AddItem rs![Filde1]
						rs.MoveNext
						DoEvents
					Loop

dB ترمز لقاعدة البيانات

rs ترمز لسجلات

Filde1 ترمز لأسم الحقل

Table1 ترمز لاسم الجدول

DoEvents تزيل التكرار