كيف اتحكم في عدد البيانات التي تظهر في الكومبو

في هذا المثال خطأ

حيث أنه يظهر فقط حسب العدد الموجود في جملة if cmbName.ListCount= 1

فإذا غيرنا الرقم الى 2 يظهر فقط حقلين بدون الشريط الخاص بالكومبو ليهظهر باقي الحقول

المطلوب هو عند الضغط على الكومبو يظهر حقلين فقط ومن ثم يتم الضغط على شريط التمرير الخاص بالكومبو لاظهار باقي الحقول

ارجوا ان يكون طليب واضح

'------------- ----------------

Dim RSTemp As ADODB.Recordset

Set RSTemp = GetRecordset("Select * From tbla ")

cmbName.Clear

Do While Not RSTemp.EOF

If cmbName.ListCount = 1 Then Exit Sub

cmbName.AddItem (RSTemp("Name"))

RSTemp.MoveNext

Loop

'------------------------------------------------------------

وهذا كود يعمل مع الكومبو الذي يكون بياناته ليست من قاعدة بيانات

في الفورم لود

i=0

do

i=(i+1)

if combo1.ListCount=4 then Exit sub

combo1.AddItem (i)

Loop

للأفادة