Private Sub cmbServerName_DropDown(sender As Object, e As EventArgs) Handles cmbServerName.DropDown
    Dim Server As String = String.Empty
    Dim instance As Sql.SqlDataSourceEnumerator = Sql.SqlDataSourceEnumerator.Instance
    Dim stable As System.Data.DataTable = instance.GetDataSources()
    For Each row As System.Data.DataRow In stable.Rows
        Server = row("ServerName")
        If row("InstanceName").ToString.Length > 0 Then
            Server = Server & "" & row("InstanceName")
        End If
        cmbServerName.Items.Add(Server)
    Next
    cmbServerName.SelectedIndex = cmbServerName.FindStringExact(Environment.MachineName)
End Sub