VB2008 using multiple mysql datareader

[easygi]

I have this code

sqlcon.Close()
        sqlcon.Open()

        cmd.CommandText = "SELECT item_category FROM tbl_item_code where item_category = '" & lbl_category.Text & "'"
        cmd.Connection = sqlcon
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows() Then
            sqlcon.Close()
            sqlcon.Open()
            Dim cmd2 As New MySqlCommand
            Dim dr2 As MySqlDataReader
            cmd2.CommandText = "SELECT * FROM tbl_item_code WHERE item_code='" & lbl_category.Text & "' ORDER BY item_num DESC LIMIT 1"
            cmd2.Connection = sqlcon
            dr.Close()
            dr2 = cmd2.ExecuteReader
            dr2.Read()

When I'm gonna execute or use the dr2 query I get the error message "No current query in data reader"