Giúp mình gỡ rối SQLDMO trong VBNet

[toanquyen]

Chào các bạn,
Mình sử dụng đoạn code sau trong VB6 không sao, nhưng trong VBNet thì bị lỗi:
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
Bị lỗi ở dòng thứ năm:
Ds_ten_may_chu = Ung_dung.ListAvailableSQLServers
Nội dung lỗi là:
QueryIterface for interface SQLNameList failed.
Máy mình đang thử có nối mạng và chạy đoạn code trên trong VB6 không bị lỗi.
Giúp mình với.