Public pDS_Layout As New DataSet         'DataSet f. Maske
Public pDT_Layout As New DataTable             'DataTable f. Maske

Dim SQL as integer = "Update Layout set Markiert = False where LFDObjNr in (" & _
  "15,23,20,50)"

Public Sub Layout_Tabelle_erzeugen()
  pDT_Layout = pDS_Layout.Tables.Add("Layout")
  With pDT_Layout
    .Columns.Add("LFDObjNr", GetType(Integer))            'Laufende Objektnummer 
    ...
    ...
    .Columns.Add("Markiert", GetType(Boolean))
  End With
End Sub

Public Function Layout_Feld_hinzufuegen(byval LFD as integer, ...) As Integer
 Dim DR_Layout As DataRow
 
 DR_Layout = pDT_Layout.NewRow
 DR_Layout("LFDObjNr") = LFD 
 ...
 DR_Layout("Markiert") = False
 
pDT_Layout.Rows.Add(DR_Layout)
End Function