Private Sub da_DETAIL_RowUpdated(ByVal sender As Object, ByVal e As _
      System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles da_DETAIL.RowUpdated
        MsgBox("ID: " & e.Row("ID") & " -> " & Int32.Parse( _
        cmdGetIdentity.ExecuteScalar().ToString()))
        If e.Status = UpdateStatus.Continue AndAlso e.StatementType = _
        StatementType.Insert Then
            e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
            e.Row.AcceptChanges()
        End If
    End Sub