VB.Net - Не удалось включить ограничения.Одна или несколько строк содержат значения, нарушающие ненулевые, уникальные или внешние ключи

Question

Я создаю библиотечную систему автоматизации с использованием VB.Net.В форме добавления книги (UI) я хочу добавить автора книги (поле в tblBookDetails. Но Добавление автора книги - это еще один пользовательский интерфейс. Чтобы добавить автора книги в интерфейс добавления книги, у меня есть поле со списком, чтобы заполнить все authorFirstName, кромезначение должно быть authorID. Я хочу заполнить имена авторов книг из таблицы BookAuthor. При запуске я получил следующую ошибку Failed to enable constraints. One or more rows contain values violating non-null, unique, or foreign-key constraints.

tblBookAuthor и схема tblBookDetails

tblBookAuthor(authorID, authorFirstName) // authorID - PK

tblBookDetails(accessionNo, authorId, title) // authorID - FK

Это мой код

Private Sub frmAddBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SqlDataAdapter1.Fill(DataSet51, "tblBookAuthor") // Highlighted as error
        dt = DataSet51.Tables("tblBookAuthor")

    End Sub

Обновление

Дополнительный код для getId для имени автора

Private Sub cboBookAuthor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbAuthorId.SelectedIndexChanged
    Dim i As Integer

    For i = 0 To DataSet51.Tables("tblBookAuthor").Rows.Count - 1
        If cboBookAuthor.Text = DataSet51.Tables("tblBookAuthor").Rows(i).Item(1) Then
            txtBookAuthorID.Text = DataSet51.Tables("tblBookAuthor").Rows(i).Item(0)
            Exit For
        End If

    Next

End Sub