Hi everybody,
I've wrote code like this:

  Dim i As Integer
        Dim Ung_dung As SQLDMO.Application
        Ung_dung = New SQLDMO.Application
        Dim Ds_ten_may_chu As SQLDMO.NameList

        Ds_ten_may_chu = Ung_dung.ListAvailableSQLServers()
        Ds_may_chu.Items.Clear()
        For i = 1 To Ds_ten_may_chu.Count
            Ds_may_chu.Items.Add(Ds_ten_may_chu.Item(i))
        Next
And I found the error:
QueryInterface for interface SQLDMO.NameList failed at the 5th line.

Please help me!!!

Hanh Toan