[خالد كامل1]

السلام عليكم ورحمه الله
 اصمم مشروع كاشير اريد كود  انتقال مؤشر الماوس من تكست الى تكست اخر بعد قراءة جهاز الباركود للباركود فى تكست الباركود
انى استعمل هذا الكود فى حدث keydowen ولكن يقرأ بعض من ارقام الباركود ولا يكمل الانتقال

كود :

'        Dim cmd As New OleDbCommand
   '        With cmd
   '            .Connection = con
   '            If con.State = 1 Then con.Close()
   '            con.Open()
   '            .CommandType = CommandType.Text
   '            .Parameters.AddWithValue("@pro_code", OleDbType.Integer).Value = pro_code.Text
   '            .CommandText = "select pro_code,pro_name,pro_sheraa,pro_qty,pro_b from products where pro_code= @pro_code"
   '            .Parameters.AddWithValue("@pro_code", OleDbType.VarChar).Value = pro_code.Text
   '            Dim dr As OleDbDataReader = cmd.ExecuteReader
   '            'If con.State = 1 Then con.Close()
   '            'con.Open)
   '            'While dr.Read
   '            dr.Read()

   '            pro_name.Text = dr.Item(1)
   '            pro_price.Text = dr.Item(4)

   '            BUY_.Text = dr.Item(2)
   '            maKH_NAME.Text = dr.Item(3)
   '            dr.Close()

   '            'End While


   '        End With
   '        'pro_code.Text = ""

   '    End If
   '    'con.Close()
   '    'pro_code.Text = ""
   '    'End If
   '    con.Close()
   '    pro_qty.Focus()
   'End Sub