هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Try

            Dim dt As New DataTable

            Dim da As New OleDbDataAdapter

            dt.Clear()

            da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text, con)

            da.Fill(dt)

            If dt.Rows.Count > 0 Then

                If dt.Rows(0).Item("mooar").ToString = True Then

                    MsgBox("هذا الكتاب في الاعارة", MsgBoxStyle.Exclamation, "تنبيه")

                Else

                    preedt.Rows.Add()

                    Dim last As Integer = preedt.Rows.Count - 1

                    preedt.Rows(last).Item("Nlivre") = Nlivre.Text

                    preedt.Rows(last).Item("Npree") = Npree.Text

                    preedt.Rows(last).Item("Nometalib") = Nometalib.Text

                    preedt.Rows(last).Item("Prnometalib") = Prnometalib.Text

                    preedt.Rows(last).Item("Titerlivre") = Titerlivre.Text

                    preedt.Rows(last).Item("Classelivre") = Classelivre.Text

                    preedt.Rows(last).Item("Auterlivre") = Auterlivre.Text

                    preedt.Rows(last).Item("Ntalib") = Ntalib.Text

                    preedt.Rows(last).Item("mooar") = Mooar.Checked

                    preedt.Rows(last).Item("Datepre") = Datepre.Value

                    preedt.Rows(last).Item("nmbtotard") = Nmbtotard.Text

                    Dim sav As New OleDbCommandBuilder(preeda)

                    preeda.Update(preedt)

                    preedt.AcceptChanges()

                    MsgBox("تم الاعارة بنجاح", MsgBoxStyle.Information, "تنبيه")

                    loudpree()

                    novoupree()

                End If

            Else

                MsgBox("لا يوجد اى نتائج عن رقم الكتاب المدخل", MsgBoxStyle.Exclamation, "تنبيه")

            End If



        Catch ex As Exception



        End Try

    End Sub