SQLDMO in VB.Net

[rb11291978]

'Use the SQL DMO Application Object to find the available SQL Servers
Try
Dim i As Integer
Dim oSQLApp As SQLDMO.Application
oSQLApp = New SQLDMO.Application()
Dim colNames As SQLDMO.NameList
colNames = oSQLApp.ListAvailableSQLServers()
For i = 1 To colNames.Count
cboServer.Items.Add(colNames(i)
Next i

Catch err As Exception
MsgBox(err.Message)
End Try

I got this Error
QueryInterface for interface SQLDMO.NameList failed.

Any problem with code or SQLDMO it self not 100% compatible to VBNet.

 

[tonedef]

Make sure you have all of the SQL Service Packs (and hot fixes) installed. I found this helped when some code that used DMO worked on my machine but not on a coworker. We appliedn the Service Packs and hotfixes and it then worked on his machine as well.