How Do I Create A Vb.Net Gui That Allows The User To Select The Ms Sql Server/Database

I need to make a few assumptions here based on my understanding / interpretation of your question.
1. You want to know what computer systems in your local network runs a MS SQL Server instance,
2. You wish to see a list of databases for each computer system running an instance of MS SQL Server.

To accomplish (1) you will need to retrieve a list of all computer systems on your local network. Once you have a list of all computer systems on the network you will need to check to see if an instance of MS SQL is running on each specific computer system. Unfortunately you will not be allowed to interrogate a MS Server without a valid username and password for that server because of its high level security.

The code example is for the local machine and there are code examples out there to retrieve the process list of a remote computer.

'Check to see if MySQL is running on this system
    Private Function IsMySQLRunning() As Boolean
        Dim proc() As System.Diagnostics.Process
        Try
            'Check all processes to see if MySQL is running
            proc = System.Diagnostics.Process.GetProcessesByName("mysqld")
            '<0 then mysqld was found, =0 then mysqld is not running
            If proc.Length > 0 Then
                'Found
                Return True
            Else
                'Not found
                MsgBox("MySQL Server was not found to be running on this system." & vbCrLf & _
                       "Please verify that this is the MySQL database server and that MySQL is running", _
                        MsgBoxStyle.Information)
                Return False
            End If
        Catch ex As Exception
            'Damit, something went wrong.
            MsgBox("Unable to check if MySQL Server is running on this system." & vbCrLf & _
                   ex.ToString, MsgBoxStyle.Information)
            Return False
        End Try
    End Function

To achieve (2) you can follow Solution 1 as it is above my immediate scope and I don't work with MS SQL.

ok well I switched to treeview to display associated databases and all has worked very well.

thank you for helps guys.

this is form1 for selecting server and database and please if you see some thing that could be done better that I can learn from then I would love to hear from you.

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class Form1
    Private myConn As SqlConnection
    Private myCmd As SqlCommand

    Public instance As String
    Public database As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources
        For Each dr As DataRow In dt.Rows
            ddlInstances.Items.Add(String.Concat(dr("ServerName"), "\", dr("InstanceName")))
        Next
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TVDBs.Nodes.Clear()
        If ddlInstances.SelectedIndex = 0 Then
            instance = ddlInstances.SelectedItem.ToString
            myConn = New SqlConnection("Initial Catalog=Master;" & _
                "Data Source=" & ddlInstances.SelectedItem.ToString & ";Integrated Security=SSPI;")
            myConn.Open()
            Using cmd As New SqlCommand("sp_databases", myConn)
                cmd.CommandType = CommandType.StoredProcedure
                Dim reader As SqlDataReader = cmd.ExecuteReader()
                While reader.Read()
                    TVDBs.Nodes.Add(reader("DATABASE_NAME"), reader("DATABASE_NAME"), 0, 1)
                End While
            End Using
            myConn.Close()
        Else
            MessageBox.Show("Please Select Server")

        End If

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If TVDBs.SelectedNode Is Nothing Then
            MessageBox.Show("Please select Database From List")
        Else
            ' MessageBox.Show(TVDBs.SelectedNode.Name.ToString)
            database = TVDBs.SelectedNode.Name.ToString
            Form2.Show()
        End If
    End Sub
End Class