Dim da As OleDb.OleDbDataAdapter
    Dim ds As DataSet
    Dim dv As DataView
    Dim bs As BindingContext
 
private sub aendern()
 
Dim cb As New OleDbCommandBuilder(da)
     Dim dbpos As Double
        dbpos = Me.BindingContext(dv).Position
 
        With ds.Tables("smd").Rows(dbpos)
 
'textboxen inhalt wird den items zugewiesen.
 
 
            .Item("Artikelnr") = txtartikel.Text
            .Item("Kundennr") = txtkundenr.Text
            .Item("Firma") = txtfirma.Text
            .Item("kdspezi") = txtspezi.Text
            .Item("dtbearbeitet") = "JA"
            .Item("modi") = "JA"
            .Item("dtkommentare") = "JA"
            .Item("moditxt") = "JA"
            .Item("bnr") = "1234"
        End With
 
 
        Try
 
            da.Update(ds, "smd")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

Feel Free To Contact me : ICQ 84075095

Isch ahbe .net 2005 un noch bisshen von die Bier das so hat geprigglt in mein Bauchnab?l