dt = New DataTable
 
        Dim col(1) As DataColumn
        col(0) = dt.Columns.Add("Irgendwas")
        dt.PrimaryKey = col
 
        dt.Columns.Add(New DataColumn("Wasanderes"))
        dt.Columns.Add(New DataColumn("Nochwasanderes"))

EALA FREYA FRESENA