' (5) Tabelle Sparten erstellen
 
                cmd.CommandText = "CREATE TABLE Sparten (ID Varchar(32) Primary" & _
                  "Key, Sparte Varchar(50))"
                cmd.ExecuteNonQuery()
 
                ' (6) Tabelle Geraetegroesse erstellen
 
                cmd.CommandText = "CREATE TABLE Geraetegroesse (ID Varchar(32)" & _
                  "Primary Key, Groesse Varchar(20), SP_ID Varchar(32)" & _
                  "references Sparten(ID))"
                cmd.ExecuteNonQuery()
 
                ' (7) Tabelle Geraetearten erstellen
 
                cmd.CommandText = "CREATE TABLE Geraetearten (ID Varchar(32)" & _
                  "Primary Key, Geraeteart Varchar(50), SP_ID Varchar(32)" & _
                  "references Sparten(ID))"
                cmd.ExecuteNonQuery()
 
                ' (8) Tabelle Geraetetypen erstellen
 
                cmd.CommandText = "CRzATE TABLE Geraetetypen (ID Varchar(32)" & _
                  "Primary Key, Typenbezeichnung Varchar(50), SP_ID Varchar(32)" & _
                  "references Sparten(ID), GH_ID Varchar(32) references" & _
                  "Geraetehersteller(ID), GA_ID Varchar(32) references" & _
                  "Geraetearten(ID))"
                cmd.ExecuteNonQuery()
 
                ' (9) Tabelle Geraete erstellen
 
                cmd.CommandText = "CREATE TABLE Geraete (ID Varchar(32) Primary" & _
                  "Key, Serialnummer Varchar(10), Stand Varchar(10), Baujahr" & _
                  "Varchar(4), Eichjahr Varchar(4), Garantie Bit, Eingabe" & _
                  "SmallInt, Benutzer VarChar(50), GB_ID Varchar(32) references" & _
                  "Gitterboxen(ID), GG_ID Varchar(32) references Geraetegroesse(" & _
                  "ID), SP_ID Varchar(32) references Sparten(ID), GT_ID Varchar(" & _
                  "32) references Geraetetypen(ID))"
                cmd.ExecuteNonQuery()
 
            Catch ex As SqlException
                MsgBox(ex.Message)
                Err = True
            End Try
 
            con.Close()
 
            If Err = True Then
 
                con.ConnectionString = "Data Source=" & DB_Server & ";" & _
                  "Integrated Security=TRUE"
                cmd.CommandText = "DROP DATABASE " & DB_Name
                Try
                    con.Open()
                    cmd.ExecuteNonQuery()
                Catch ex As SqlException
                    MsgBox(ex.Message)
                    con.Close()
                End Try
            End If
            con.Close()
        End If
    End Sub
End Module

VB RULEZ !