Private Sub sichern()
 
        cm.EndCurrentEdit()
        btn_sichern.Text = "Bearbeiten"
        If Smd_checkDataSet.HasChanges Then   ' Wenn das Dataset geändert wurde 
        ' UPDATEN
 
            Try
                Me.OleDbDataAdapter1.Update(Smd_checkDataSet, "SMD") 'Dataset 
                ' in Datenbank 
            Catch ex As Exception
                MessageBox.Show("Daten nicht geschrieben", _
                  MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            einlesen() 'lese Datenbank neu ein
        End If
 
End Sub

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