Private Sub btnListarDatabases_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListarDatabases.Click
        Dim da As System.Data.IDbDataAdapter
        Dim cn As System.Data.IDbConnection = GetConnection()

        If cbTipoBancoDados.Text <> "" Then
            Servidor = txtServidor.Text
        End If

        If cbTipoBancoDados.Text <> "" Then
            Call GetConnection()

            'Comando para exibir todos os bancos de dados SQL
            sqlda = "EXEC SP_HELPDB"
            da = GetDataAdapter(cn)
            ' Executa o dataadapter e mostra o datagrid
            Dim ds As System.Data.DataSet = New System.Data.DataSet

            'tratamento de erros
            Try
                da.Fill(ds)
                'cbDatabase.DataSource = ds.Tables(0)
                cbDatabase.Items.Add(ds.Tables(0))
                'dgCustomers.DataSource = ds.Tables(0)

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                'sempre fecha a coenxao
                cn.Close()
            End Try
        End If

    End Sub