كيف يمكن ان ادرج كافة حقول قاعدة بيانات برنامج ضمن القائمة الموجوده على سطح الفورم؟؟؟

المثال المرفق لايعمل لدي

عموماً جرب هذا الأمر وضعه في خانة تحميل الفورم مع تغيير ما يلزم

datPrimaryRS اسم القاعدة

List1 اسم أداة القائمة ويمكن تغييرها بأداة القائمة المنسدلة combobox

empName اسم الحقل الذي نريد سرد بياناته في القائمة

:الأمر

Do Until datPrimaryRS.Recordset.EOF

List1.AddItem datPrimaryRS.Recordset.Fields("empName")

datPrimaryRS.Recordset.MoveNext

Loop

datPrimaryRS.Refresh