Dim dr As System.Data.DataRow
 
                'Zeile in der Datenbank abrufen, die momentan in der 
                ' Textbox1angezeigt wird 
                dr = Me.DataSet11.Tables("Namen").Rows.Find(Me.Textbox1.Text)
 
                'Zeile löschen
                dr.Delete()
 
                'Aktualisieren
                Me.SqlDataAdapter1.Update(Me.DataSet11)
                Me.DataSet11.AcceptChanges()