Dim myconnProdukt As New SqlConnection(constring)
        Dim myconnHersteller As New SqlConnection(constring)
        Dim myconnHistory As New SqlConnection(constring)
 
        Dim mycmdProdukt As SqlCommand
        Dim mycmdHersteller As SqlCommand
        Dim mycmdHistory As SqlCommand
 
	 myconnProdukt.Open()
	 myconnHersteller.Open()
	 myconnHistory.Open()
        ' SQLReader (myreaderProdukt) mit Produkt Spalte füllen
        mycmdProdukt = New SqlCommand("SELECT * FROM Tab_Produkt", _
          myconnProdukt)
        Dim myreaderProdukt As SqlDataReader = mycmdProdukt.ExecuteReader
 
        ' TABELLE UND ÜBERSCHRIFTEN ERZEUGEN
        Response.Write("<table width=""60%"" border=""1"" align=""center"">")
        Response.Write("<tr>")
        Response.Write("<td>Hersteller</td>")
        Response.Write("<td>Produkt</td>")
        Response.Write("<td>Version</td>")
        Response.Write("<td>Anzahl Lizenzen</td>")
        Response.Write("</tr>")
 
        ' Do While Schleife, macht das für jedes Produkt eine Zeile erzeugt wird
        Do While myreaderProdukt.Read()
 
            mycmdHersteller = New SqlCommand("SELECT * FROM Tab_Hersteller" & _
              "WHERE AutoID=" & myreaderProdukt.Item("HerstellerID"), _
              myconnHersteller)
            mycmdHistory = New SqlCommand("SELECT * FROM Tab_History WHERE" & _
            "ProduktID=" & myreaderProdukt.Item("AutoID"), myconnHistory)
 
            Dim myreaderHersteller As SqlDataReader = _
              mycmdHersteller.ExecuteReader
            Dim myreaderHistory As SqlDataReader = mycmdHistory.ExecuteReader
 
            myreaderHistory.Read()
            myreaderHersteller.Read()
 
            ' TABELLENINHALT SCHREIBEN
            Response.Write("<tr>")
            Response.Write("<td>" & myreaderHersteller.Item("Hersteller") & "</td>")
            Response.Write("<td>" & myreaderProdukt.Item("Produkt") & "</td>")
            Response.Write("<td>" & myreaderHistory.Item("Version") & "</td>")
            Response.Write("<td>" & myreaderHistory.Item("Anzahl") & "</td>")
            Response.Write("</tr>")
 
        Loop
 
        Response.Write("</table>")
        myconnHistory.Close()
        myconnHersteller.Close()
        myconnProdukt.Close()