Populating list box

[BobBob10]

Using the following code

Dim blnGotListOfSQLServers As Boolean
Dim colSQLServers As Collection
Dim objSQLServer As Object
Dim m_dataset As DataSet
Dim m_clsNetAPI32 = New clsNetAPI32
blnGotListOfSQLServers = m_clsNetAPI32.GetListOfServers(colSQLServers)

If blnGotListOfSQLServers Then
For Each objSQLServer In colSQLServers
Me.List1.Items.Add(objSQLServer)
Next
End If


However List1 doesn't populate it populate blanks which is incorrect as when I step through the code values are present in the output window.

Any ideas?

 

[mansii]

Since objSQLServer is an object, perhaps you need to add put the objSQLServer's Name or whatever:

 Me.List1.Items.Add(objSQLServer.Name)
'or  Me.List1.Items.Add(objSQLServer.ToString)

Regards,
mansii

 

[SqueakinSweep]

Ensure you have SQL2000 SP2 at latest. This is a known bug

Sweep
...if it works dont f*** with it