كود انتقال مؤشر الماوس من تكست الى تكست اخر

كود :
'        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