[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي العيدروس 
بدل القيمة Is Null استخدم  سنكل كوتيشن اي ''
والكود يكون على النحو التالي

كود :

Dim DT As New DataTable
  Dim DA As New SqlClient.SqlDataAdapter("Select * From Tblproduct where barcode =''", Con)
      DA.Fill(DT)
      If DT.Rows.Count > 0 Then
   DataGridView1.DataSource =DT
      End If

 جرب وان شاء الله يعمل