احتاج كود خاص بقراءة البار كود فجول ستديو 2010

كود :
Private Sub TextBox20_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox20.KeyDown

        If (e.KeyCode = Keys.Enter) Then





            Try

                If TextBox20.Text = "" Then MsgBox("يجب ادخال رقم بار كود اولا", vbInformation, "خطاء") : Exit Sub





                Dim cmdSELECT As New OleDbCommand

                cmdSELECT = New OleDbCommand("SELECT * FROM alsader WHERE code =code", conn)

                cmdSELECT.Parameters.Add(New OleDbParameter("code", TextBox20.Text))

                conn.Open()

                Dim re As OleDbDataReader

                re = cmdSELECT.ExecuteReader

                If re.Read Then



                    TextBox1.Text = re(0).ToString

                    DateTimePicker5.Value = re(1).ToString

                    ComboBox3.Text = re(2).ToString

                    ComboBox2.Text = re(3).ToString

                    ComboBox1.Text = re(4).ToString

                    TextBox4.Text = re(5).ToString

                    TextBox5.Text = re(6).ToString

                    TextBox6.Text = re(7).ToString

                    ComboBox5.Text = re(8).ToString

                    TextBox8.Text = re(9).ToString

                    TextBox3.Text = re(10).ToString

                    ComboBox4.Text = re(11).ToString

                    TextBox21.Text = re(12).ToString







                Else

                    MsgBox("رقم بار كود غير موجود ابحث برقم اخر")



                End If





            Catch ex As Exception

                MsgBox(ex.Message.ToString)

            End Try



            conn.Close()





        End If

    End Sub