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

[VB6Coder]

I think the reason why it is falling over is because you are not calling the objDR.Read method in the second example while you are looping round

Try:

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

[Edneeis]

Why not just use TOP 3 in your SQL Query.

[EyeTalion]

thanks VBCoder...Edneeis...theres a TOP command is SQL? Do you have a example?

[Edneeis]

SELECT TOP 3 * FROM MyTable

[EyeTalion]

did not know that...thanks