Weird combobox problem

[ultimate_girl]

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

Dim rs As New ADODB.Recordset()
 
cboObject.Items.Clear() 
rs.Open(strQuery, Cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
If Not rs.EOF Then
    rs.MoveFirst()
            Do While Not rs.EOF
                cboObject.Items.Add(rs.Fields(0).Value) 
                    rs.MoveNext()
            Loop
End If
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!

[jmcilhinney]

Don't use a Recordset for a start, and don't use ADO at all. Use ADO.NET, retrieve the data into a DataTable and assign that to the DataSource of the ComboBox, or else use a DataReader to get the values one by one and add them.

Having said that, if you've got blank entries then you got entries. Either you've set the ForeColor and the BackColor to the same value, which is unlikely, or it may something else interfering. Do you have any McAfee products installed? There's a well-documented bug that causes text to disappear in .NET apps.

[ultimate_girl]

Is there any way to go around the McAfee bug? I'm afraid that is the standard Virus Scanner for our company.

[jmcilhinney]

They have posted a patch on their Web site. I'm sure someone has posted a link at least once before. Try search the forum first, then the McAfee site.