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

Dim foundRow As DataRow
foundRow = dt.Rows.Find("WertinSchlüsselspalte")
foundRow.Item("Wasanderes") = "NeuerWert"

EALA FREYA FRESENA