Hi! I am experiencing a very strange problem with my combobox. I am currently using the code

VB Code:
  1. Dim rs As New ADODB.Recordset()
  2.  
  3. cboObject.Items.Clear()
  4. rs.Open(strQuery, Cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
  5. If Not rs.EOF Then
  6.     rs.MoveFirst()
  7.             Do While Not rs.EOF
  8.                 cboObject.Items.Add(rs.Fields(0).Value)
  9.                     rs.MoveNext()
  10.             Loop
  11. End If
  12. rs.Close()

Whenever I run the system, the combobox returns as blank. Here's the weird part, there is a long list of blank entries, if I chose the second one, it will suddenly appear in my combobox. It is like they are invisible or something. The second weird part is after a few minutes the list will suddenly become visible again. I've never encountered this problem before and neither have my coworkers. Please help!