Dim antwort As String
 
        ds.Tables(0).Rows(0).Delete()
 
        If ds.HasChanges Then
 
            ' OK und Abbrechen, Stop-Symbol, Titelzeile "Test"
 
            antwort = MsgBox("Vorsicht!", vbOKCancel + vbCritical, "Test")
 
            If antwort = vbOK Then
 
                ' OK wurde geklickt
 
                'ds.Tables(0).Rows(0).Delete()
 
                BindingSource.EndEdit()
 
                DataAdapter.Update(ds.Tables(0))
 
            Else
                ' Abbrechen wurde geklickt
 
            End If

Windows XP Home Service Pack 3 - Visual Basic 2008 Express - SQL Server 2008 Express with advance service