do while loop

[EyeTalion]

I only want to place the first three records in my comboBox, but this code places all the records in there:

 
Do While objDR.Read = True
                Me.cmbCards.Items.Add(Trim(objDR("employee_first_name")) 
loop

so, I changed the code to:

 
Do While counter < 2
                Me.cmbCards.Items.Add(Trim(objDR("employee_first_name")) 
counter = counter + 1
            Loop

but this returned an err msg....no data found...anyone have the proper syntax to do this?

thanks