'-- This determines the count of items that would be in the

'combo if there are NO items from the db. Note that the

'initialization to zero is for clarity...integers are

'initialized to zero automatically.

Dim zeroDbItemCount As Integer = 0

If Me.cboSample.TopMostItem IsNot Nothing Then

zeroDbItemCount = 1

End If



'-- If the combo has only one db item, select this item.

'Note that we need exactly one more item than our zero count.

If Me.cboSample.Items.Count = zeroDbItemCount + 1 Then

'-- This is kind of lazy, reusing the zeroDbItemCount as the index, but

'this count will also be the actual index of the first db

'item. I.e. if there is no top most item, the first db item has

'an index of zero. If there is a top most item, the first db item

'has an index of 1.

Me.cboSample.SelectedItem = Me.cboSample.Items(zeroDbItemCount)

End If