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

كود :
  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") = CheckBox1.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