Try
    MyDataAdapter.ContinueUpdateOnError = True
    MyDataAdapter.Update(MyDataTable)
    If MyDataTable.HasErrors
        Dim strMessage As String
        strMessage = "The following row(s) were not updated " & _
                     "successfully:"
 
        Dim row As DataRow
        For Each row In MyDataTable.Rows
            If row.HasErrors Then
                strMessage &= vbCrLf & row("ID") & " – " & _
                              row.RowError
            End If            
        Next row
        MessageBox.Show(strMessage)
    Else
        MessageBox.Show("All updates succeeded")
    End If
Catch ex As Exception
    MessageBox.Show("The following exception occurred:" & vbCrLf & _
                    ex.Message)
End Try