Dim DataTable_Save As New DataTable
Dim DataRow_Save As DataRow
 
For Each DataRow_Save In DataSet.Tables(<DeinTabellenName>).Rows
 
If CLng(DataRow_Save(<NamePrimärschlüsselspalte>)) = Pos Then
 
DataRow_Save.Item(<Spalte1>) = Me.Textbox1.Text
DataRow_Save.Item(<Spalte2>) = Me.Textbox2.Text
...
End If
Next
 
Me.myadapter.Update(Me.mydataset, <DeinTabellenName>)

___________________________
Greez Smartyx