[ملهمـ]

كود :

       Dim SQL = "select * from Items where Item_Name = '" & Item_Name.Text & "' or Item_Bar ='" & Item_Bar.Text & "' "
       Dim ADP = New SqlClient.SqlDataAdapter(SQL, SqlConn)
       Dim Ds = New DataSet
       ADP.Fill(Ds)
       Dim DT = Ds.Tables(0)
       If DT.Rows.Count > 0 Then
           MessageBox.Show(" الصنف  موجود مسبقاً", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Warning)
       Else
           Dim dr = DT.NewRow

طبعا وضعت شرطين عن طريق اسم وعن طريق الباركود 
ف انت غير الكود على ما يناسبك 
موفق