The List Databases And Tables In SQL SERVER With SQLDMO

hi

i have a project and i want make thats;

1-)The list All SQL Server(s) in my network to dropdrown list(that's ok)

2-) the list all databases to selected sqlserver(that's ok)

3-) the list tables to selected database(i cant)

 

i wrote my source kod please help me

 

1-)

Dim mDMOApp As New SQLDMO.Application

Dim mNames As SQLDMO.NameList

Dim t As Integer



mDMOApp = New SQLDMO.Application

mNames = mDMOApp.ListAvailableSQLServers()

lstServers.Items.Clear()



For t = 1 To mNames.Count

lstServers.Items.Add(mNames.Item(t))

Next

 

2-)

 

Dim server As New SQLDMO.SQLServer

Dim db As SQLDMO.Database



server.Connect(mysqlserver, "xxx", "xxx")

For Each db In server.Databases

lst.Items.Add(db.Name)



Next

3)

how can i ???