[momani33]

السلام عليكم لدي هذا الكود للبحث عن الباركود والتاكد من وجوده
اريد عمل فنكشن او موديول لكود البحث لتجنب تكرار كتابته كثيرا حيث ان المتغير الوحيد هو نص الادخال(unit1_barcode.Text) للباركود وشكرا

If sqlconn.State = 1 Then sqlconn.Close()
                sqlconn.Open()

                Dim sqlReader As String = "select * from item where  unit_barcode=N'" & (unit1_barcode.Text) & "'"
                Dim cmd As New SqlCommand(sqlReader, sqlconn)
                Dim dr As SqlDataReader
                dr = cmd.ExecuteReader
                dr.Read()
                If dr.HasRows Then
                    dr.Close()
                    sqlconn.Close()
                    unit1_barcode.Text = ""
                    MsgBox("عذرا الباركود موجود مسبقا الرجاء الادخال بشكل صحيح")
                    Exit Sub
                End If
                dr.Close()
                sqlconn.Close()