SoloCodigo

Hola caballeros, bien mi problema es el siguiente: estoy realizando un programita en vb.net con la cual conecto a la base de datos sql y estoy mas de una semana con un apartado que no termino de resolver. Ya que soy un novato, espero recibir su profesional ayuda (y no es por hacer la rosca). Muchas gracias de antemano, aqui les enseño mi codigo y mi problema:

Imports Oracle.DataAccess.Client


Public Class Form1
    Dim usuario As String
    Dim contraseña As String

    Dim cadena As String = "Data Source=(DESCRIPTION=" _
                   + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.0.222)(PORT=1521)))" _
                   + "(CONNECT_DATA=(SID=test)));" _
                   + "User Id=++++++++++;Password=+++++++++;"


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conexion As OracleConnection
        Dim consulta As String
        Dim cmd As OracleCommand
        Dim resultado As OracleDataReader

        'cadena de conexión a la bbdd

        ' creamos la conexión a la bbdd
        conexion = New OracleConnection(cadena)
        ' abrimos la conexión
        conexion.Open()
        'Indicamos la consulta
        consulta = "select username from all_users"
        'ejecutamos la consulta
        cmd = New OracleCommand(consulta, conexion)
        'Ejecutamos la consulta y obtenemos el resultado
        resultado = cmd.ExecuteReader()
        ' recorremos el resultado
        While (resultado.Read)
            cbUsuarios.Items.Add(resultado("username"))
        End While

       
        ' Cerra el resultado y la conexión
        resultado.Close()
        conexion.Close()


    End Sub



    Private Sub cbUsuarios_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbUsuarios.SelectedIndexChanged

        Dim conexion As OracleConnection
        Dim consulta As String
        Dim cmd As OracleCommand
        Dim resultado As OracleDataReader
        Dim campos As String = ""
        Dim i As Integer = 0

        consulta = "select table_name from all_tables where owner='" & cbUsuarios.SelectedItem & "'"

        conexion = New OracleConnection(cadena)
        conexion.Open()
        cmd = New OracleCommand(consulta, conexion)
        resultado = cmd.ExecuteReader()


        While (resultado.Read)
            campos = ""
            campos = vbNewLine & resultado("table_name")
            lbsalida.Items.Add(resultado("table_name"))
            i += 1
        End While
    End Sub



    Private Sub lbsalida_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbsalida.SelectedIndexChanged
        Dim conexion As OracleConnection
        Dim consulta As String
        Dim cmd As OracleCommand
        Dim resultado As OracleDataReader
        Dim campos As String = ""
        Dim i As Integer = 0

        consulta = "select column_name, data_type, NULLABLE from all_tab_columns where table_name='" & lbsalida.SelectedItem & "'"

        conexion = New OracleConnection(cadena)
        conexion.Open()
        cmd = New OracleCommand(consulta, conexion)
        resultado = cmd.ExecuteReader()

        dgresultado1.ColumnCount = 3
        dgresultado1.Columns.Item(0).Name = "Nombre"
        dgresultado1.Columns.Item(1).Name = "Tipo"
        dgresultado1.Columns.Item(2).Name = "¿Nulo?"

        While (resultado.Read)
            dgresultado1.Rows.Add()
            dgresultado1.Rows(i).Cells(0).Value = resultado("column_name")
            dgresultado1.Rows(i).Cells(1).Value = resultado("data_type")
            dgresultado1.Rows(i).Cells(2).Value = resultado("NULLABLE")
            i = i + 1
        End While

    End Sub

End Class


tengo 2 data grid. En el segundo datagrid necesito que me aparezcan todos los atributos de la tabla, es decir, pincho en una lista de tablas y en el data grid 1 me aparece el nombre de la tabla, el tipo de los atributos que  contiene y si es nula o no y lo que pretendo saber en el data grid 2 es el contenido de la tabla misma cuando pinche en ella. Como ya he dicho antes, muchas gracias de antemano