Fazer Select MultiNivel - 4 Geracoes

 Dim strSQL As String = "Select * from Cliente Where Documento=´110.500.508-94´"
        Dim MyConn As New OleDbConnection(ConfigurationManager.ConnectionStrings("DBaseConnectionString").ConnectionString)
        Dim rs As OleDbDataReader
        Dim Cmd As New OleDbCommand(strSQL, MyConn)


        Try
            MyConn.Open()

            rs = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
            If rs.Read() Then


                Me.gerprinc.Text = rs("documento") & " - " & rs("nome") & "<br>"

               
                Dim StringConn As String = ConfigurationManager.ConnectionStrings("DBaseConnectionString").ConnectionString
                Dim objConn As New OleDbConnection(StringConn)
                objConn.Open()
                Dim Sql As String = "Select cliente.documento, cliente.nome, cliente.pertence FROM cliente Where cliente.Pertence = ´" & rs("documento") & "´ GROUP BY cliente.Documento, cliente.Nome, cliente.Pertence"
                Dim objComd As New OleDbCommand(Sql, objConn)
                Dim objReader As OleDbDataReader
                objReader = objComd.ExecuteReader


                ´LOOP NAS TABELAS
                While objReader.Read

                    Dim StringConn2 As String = ConfigurationManager.ConnectionStrings("DBaseConnectionString").ConnectionString
                    Dim objConn2 As New OleDbConnection(StringConn2)
                    objConn2.Open()
                    Dim Sql2 As String = "Select cliente.documento, cliente.nome, cliente.pertence FROM cliente Where cliente.Pertence = ´" & objReader("documento") & "´ GROUP BY cliente.Documento, cliente.Nome, cliente.Pertence"
                    Dim objComd2 As New OleDbCommand(Sql2, objConn2)
                    Dim objReader2 As OleDbDataReader
                    objReader2 = objComd2.ExecuteReader

                    Me.geracao1.Text += "&nbsp;&nbsp; |_ " & objReader("documento") & " - " & objReader("nome") & "<br>"


                End While



                ´Fecha Conexao com o BD
                objConn.Close()


            Else
              

            End If
        Catch ex As Exception

            ´ escreve o erro no arquivo de log
            Dim sw As StreamWriter = File.AppendText(Server.MapPath("__LogErroGanhos.txt"))
            sw.WriteLine(DateTime.Now.ToString & " : " & ex.Message)
            sw.Close()

       
        Finally
            MyConn.Close()
        End Try

Imports System.Data
Imports System.Data.OleDb


Partial Class _Rede_Exemplo
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim StringConn As String = ConfigurationManager.ConnectionStrings(´dbaseConnectionString´).ConnectionString
        Dim objConn As New OleDbConnection(StringConn)
        Dim ds As New DataSet()

        ´PRINCIPAL
        Dim principal As New OleDbDataAdapter(´select * from cliente where documento = ´110.500.508-94´´, objConn)
        principal.Fill(ds, ´principal´)

        ´LOOP PARA PASSAR O NR DO DOCUMENTO PARA O SELECT DA GERACAO1
        For Each princ As DataRow In ds.Tables(´principal´).Rows
            ´Me.totalprinc.Text = ds.Tables(´principal´).Rows.Count.ToString()
            Me.txtprincipal.Text = ´ - ´ & princ(´nome´) & ´<br>´

            ´SELECT PARA A GERACAO1
            Dim geracao1 As New OleDbDataAdapter(´select * from cliente where pertence= ´´ & princ(´documento´) & ´´´, objConn)
            geracao1.Fill(ds, ´geracao1´)
        Next


        ´LOOP PARA PASSAR O NR DO DOCUMENTO PARA O SELECT DA GERACAO2
        For Each ger1 As DataRow In ds.Tables(´geracao1´).Rows
            Me.totalger1.Text = ds.Tables(´geracao1´).Rows.Count.ToString()
            Me.txtgeracao1.Text += ´&nbsp;&nbsp; |_ ´ & ger1(´nome´) & ´<br>´

            ´SELECT PARA A GERACAO2
            Dim geracao2 As New OleDbDataAdapter(´select * from cliente where pertence= ´´ & ger1(´documento´) & ´´´, objConn)
            geracao2.Fill(ds, ´geracao2´)
        Next


        ´LOOP PARA PASSAR O NR DO DOCUMENTO PARA O SELECT DA GERACAO3
        For Each ger2 As DataRow In ds.Tables(´geracao2´).Rows
            Me.totalger2.Text = ds.Tables(´geracao2´).Rows.Count.ToString()
            Me.txtgeracao2.Text += ´&nbsp;&nbsp;&nbsp;&nbsp; |_ ´ & ger2(´nome´) & ´<br>´

            ´SELECT PARA A GERACAO3
            Dim geracao3 As New OleDbDataAdapter(´select * from cliente where pertence= ´´ & ger2(´documento´) & ´´´, objConn)
            geracao3.Fill(ds, ´geracao3´)
        Next


        ´LOOP PARA PASSAR O NR DO DOCUMENTO PARA O SELECT DA GERACAO4
        For Each ger3 As DataRow In ds.Tables(´geracao3´).Rows
            Me.totalger3.Text = ds.Tables(´geracao3´).Rows.Count.ToString()
            Me.txtgeracao3.Text += ´&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; |_ ´ & ger3(´nome´) & ´<br>´

            ´SELECT PARA A GERACAO4
            Dim geracao4 As New OleDbDataAdapter(´select * from cliente where pertence= ´´ & ger3(´documento´) & ´´´, objConn)
            geracao4.Fill(ds, ´geracao4´)
        Next


        ´LOOP PARA PASSAR O NR DO DOCUMENTO PARA O SELECT DA GERACAO5
        For Each ger4 As DataRow In ds.Tables(´geracao4´).Rows
            Me.totalger4.Text = ds.Tables(´geracao4´).Rows.Count.ToString()
            Me.txtgeracao4.Text += ´&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; |_ ´ & ger4(´nome´) & ´<br>´
        Next



    End Sub
End Class

var
htm:string; 
begin
try
  fbcommand.create(´QUERY...´)
  
  FBDataReader := fbcommand.executeReader;
  while fbdatareader.read do
    begin
  htm := Nivel2(fbdatareader[´CAMPORETORNADASQL´].ToString) //chama funcao que pesquisa nivel 2
end;
  
finally
  fbdataadapter.free;
  fbcommand.free;
  fbdataadapter.dispose;
end;
end;

function Nivel2(ID:string): string;
var
  htm: string;
begin
  try
  fbcommand1.create(´QUERY...´)
  
  FBDataReader1 := fbcommand1.executeReader;
  while fbdatareader1.read do
    begin
  htm := Nivel3(fbdatareader1[´CAMPORETORNADASQL´].ToString) //chama funcao que pesquisa nivel 3
end; 
  finally
    fbdataadapter.free;
    fbcommand.free;
    fbdataadapter.dispose; 
  end;
end;